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MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
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SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 
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SEQ 0001 


ABSTRACT 


The function of the Dv11 pt 5 pep Ba are to verify that the option 
operates according to specifications. The diagnostics verfiy that there 
are no malfunctions and the all operations of the DV11 are correct in 
its enviroment. 

Parameters may be set to alert diagnostics as to the Dv11 oslo lagen 
BY USING THE “‘TRIAL'’ PROGRAM (CZDVE SA:210). ALL QUESTIONS SHOULD BE 
answered and then each diagnostic will “‘OVERLAY’’ these parameters which 
are stored in the “STATUS TABLE’ (see section 8.4a). The alternative to 
“TRIAL'' program is ‘‘AUTO SIZING’ (see section 8.5). 


CZDVD LIKE CZDVC ALLOWS THE MICRO PROCESSOR TO ‘FREE RUN'’. BECAUSE OF 
the length of the ‘free runring’’ test; this test is to catch the 
OVERFLOW FROM CZDVC. 


Currently there are six off line diagnostics that are to be run in 
sequence to insure that if an error should occur it will be detected at 
an early stage and insuring that diagnosis of error will be immediate to 


problem 
NOTE: Additional diagnostics may be added in the future. 


The six diagnostics are: 

1. CZDVA CREV)] BASIC R/W TEST AND ROM INSTRUCTION EXERCISER. 

2. CZ20VB CREV) STATIC LINE CARD TESTS. 

3. CZDVC CREV] ‘FREE RUNNING’ ROM TESTS PART 1. 

4. CZD0VD CREV) “FREE RUNNING’ ROM TESTS PART 2. 

5. CZDVE CREV) MODEM CONTROL AND CABLE TESTS PLUS MANUAL PARAMETER 
input. CTRIAL PROGRAM] 
6. CZDVF CREV) ASYNCHRONOUS LINE CARD TESTS. 


REQUIREMENTS 
EQUIPMENT 


a POP 11 —T CPU (WITH MINIMUM 8K MEMORY) 
ASR 33 (or equilivalent) 

DV11-AA MUX CNTRL UNIT 

AT LEAST ONE OF THE FOLLOWING 

DV11-BA 8 LINE SYNC MODULES 

DV11-8B 8 LINE ASYNC MODULES 

DV11-BC 4 SYNC LINES, 4 ASYNC LINES 





5.4.9 


mF 
3.1.3 


STORAGE 


PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 1736 ARE ESPECIALLY TO BE NOTED AND TO BE 
untouched Of Spereree after DV11 trial program has been executed; or 


after the SIZING’ has been done. 
LOADING PROCEEDURE 
METHOD 


ALL pores are in absolute format and are loaded using the ABSOLUTE 
LOADER TE: if the diagnostics are on a media such as DISK 
»MAGTAPE ,DECTAPE, or CASSETTE; follow instructions for the monitor 
which has been provided on that specific media. 


ABSOLUTE LOADER starting address *500 
MEMORY * SIZE 


— 
oa 
Yr 
— QUIN 
VA NNNN 


NNN 


Place address of ABS loader into switch register. 
(also place ‘HALT’ SW up) 


Depress ‘LOAD ADDRESS" key on console and release. 


Depress ‘START KEY’ on console and release (program should now be 
loading into CPU) 





STARTING PROCEEDURE 


A. Set switch euieeee to 000200 
B. Depress "LOAD ADDRESS’ key and release 
C. Set SWR to zero for ‘AUTO SIZING’ or leave 
leave SWR bit 7=1 to use a ite set up by DVv11 trial 
ere ram oor a Prey and 8. V1l1 diagnostic that used the ‘AUTO 
IZING’. (section 7.2 and 8.4,8.5 may be helpful) 
D. Depress ‘START KEY’ and release the program will type Maindec Name 
and progran _—_ (if this was the first start up of the program) and 
also the. hoy owi 
P OF D 1 STATUS’ 
175000 


150 50 

150 000300 
1504 000226 
1506 000062 
1510 00022 

1512 000062 
1514 000226 
1516 000062 
1520 000226 
1522 000062 

The above > — an erent: — ee indicate the status table 


arereoae oe 1500 in ram, THE STATUS TABLE MUST BE 
ERIFIE ay THE USER IF — s1ZING ts. ONE. For information of status 
table see section 8.4 for help 


The program will type ‘R' and proceed to run the diagnostic 
CONTROL SWITCH SETTINGS 


NOTE: If there is no real SWR (177570); SWR may be modified at 
Loc:176 or by hitting Control ‘''G'' <*G> on console terminal. 


15 Set: Halt on error 

14 Set: Loop on current test 

13. Set: Inhibit error print out 

12 Set: Inhibit **ALL** type out/bell on error. 
11 Set: Inhibit iterations. (quick pass) 

10 Set: Escape to next test 

SW 09 Set: Loop with current data 

SW 08 Set: Catch error and loop on it 

SW 07 Set: Use previous status table. CLR-do AUTO SIZE. 
SW 06 Set: Reserved 

SW 05 Set: Reserved 

SW 04 Set: Reserved 

Sw 03 Set: Reserved 

Sw 02 Set: Lock on selected test 

SW 01 Set: Restart oreeres at selected test 

SW 00 Set: Reselect Dvl1's desired active. 


nNununen 
eeececce 


' 
——— 4 






METHOD: 


Sw 00 


oo7Ww>» 


arm 
oo ee 


Sw 01 


Sw 09 


SWITCH REGISTER RESTRICTIONS 


RESELECT DV11°S DESIRED ACTIVE. please note that a Pe is 
typed out for — the switch register equal to Dvil's 
active. this means if the system has four DVils;_ bits 
00,01,02,03 will be set in loc ‘DVACTV’ from the switch 
register. Using this switch(Sw00) alters that 
location;therefore if four DV11s are in the system ***D0 NOT*** 
set switchs greater than Sw 03 in the up position. this would 
be a fatal error. do not select more active DV11s than has been 
given information about in trial program. 
Load address 200 

Start with SW 00=1 

Program will type ge . ! 

Set the be! number of DVils desired active EXAMPLE: 1=1 
hh " Vil; 7=3) «=DV11;) «=+17=4 DV11 37=5 DV11 etc. PRESS 


TINUE. 
Number (IF VALID) will be in data Lights (excluding 11/05) 
Set with any other switch settings desired. PRESS CONTINUE. 


RESTART PROGRAM AT SELECTED TEST it is strongly ee 
that at least one pass hass been made before trying to select a 
test that is not in the urder of sequence the reason being is 
that the program has to clear areas and set up parameters. Also 
eee ore s selected ALWAYS START AT THE VERY BEGINNING OF 


LOOP ON CURRENT DATA: this switch will only work if call 
*SCOP1" is in that test. The reason being that most tests deal 
with blocks of different data to be sent or received all at once 
thus in block data; one pattern cann't be singled out. 


























4.2 


SWITCH REGISTER PRIORITYS 
ERROR SWITCHES 



















ae SW 1 Delete print out/bell on error. 

2. Sw 1 Delete error printout. 

} SW 15 Halt on the error. 

4, SW 08 Goto beginning of the test(on error). 
De SW 10 Goto next test(on error). 


SCOPE SWITCHES 


1. SW 09 (if enabled by "SCOP1") on an error; If an ‘*’ is printed 
in front of the test no. (ex. TEST NO. 10) SWO9 is 
incorporated in that test and therefore SWO9 is tusually* the 
best switch for the scope loop (SW14=0, Swi0=0, SwO9=1, SWO8=0). 
If SwO9 is not enabeled; and there is a *HARD* error 
(constant); SwW08 is best. 

(SW14=1,0, SwWi0=0, SwO9=0, SwWO8=1). for intermittemt 
errors; SW14=1 will loop on test reguardless of error or not 


error. 
(SW14=1, SWI0=0, SWO9-O, SWO8=1,0) 
2. SW 14 
3. Sw 11 


STARTING AVDRESS 


starting address is at 000200 there are no other starting addresses for 
the DVI1 diagnostics previously mentioned except for DZDVE which is: 
000200 for the modem control and cable tests and 000210 for the manual 
parameter input program. 


NOTE: If address 000042 is non-zero the program assumes it is under 

or XXDP control and will act accordingly after *ALL* 

exer teni* DV11"s are tested the program will return to ‘XXDP* or 
OPERATING PROCEDURE 


When a is initially started messages as described in section four 
will be printed. 


and program will begin running the diagnostic 





SEQ 0006 | 
























5.2 


5.2.1 


6.2 


PROGRAM AND/OR OPERATOR ACTION 
The typical approach should be 


he Halt on error (via SW 15=1) when ever an error occurs. 
2. Clear Sw 15. 

de Set SW 14: (loop on this test) 

4. Set SW 13: (inhibit error print out) 


The TEST NUMBER and PC will be typed out and possibily an error message 
(this depends on the test) to give the operator an idea as to the source 
of the problem. if it is aK a to know more information concerning 
the error report; LOOK IN THE LISTING for that TEST NUMBER which was 
typed out and then NOTE THE PC of thE ERROR REPORT this way the EXACT 
FUNCTIONING OF THE TEST CAN BE INTERPRETED. 


If the data ‘Set Buzy’’ jumper(s) are removed from the M7833 async Line 
card, the following patch should be installed. 


CHANGE LOC. 23106 FROM 403 TO 240 
23114 FROM 34000 TO 7000 


This patch puts the DV-11BB in internal maintenance for the particular 
test. This will work with all async Line cards; will not work with 
sync Line cards. 


ERRORS 


As described previously there will always be a TEST NUMBER and PC typed 
out at the time of an error (providing SW 13=0 and SW 12=0). in most 
cases additional information will be supplied to the the error message 
which is to give the operator an indication of the error. 


ERROR RECOVERY 


If for some reason the DV11 should ‘HANG THE BUS' (gain control of bus 
so that console manual functions are inhibited) an init or power down/up 
is nye et By operator to regain control of cpu. If this should 
HAPPEN; L IN LOCATION ‘TSTNO' 9ADDRESS 1226) FOR THE NUMBER OF THE 

test that was ws at the time of the catastrophic error. In _ this 
way the operator will have an idea as to what the DV11 was doing at the 
time of the error. 


RESTRICTIONS 

STARTING RESTRICTIONS 
See section 4. (PLEASE) 
Status table should be verified roperei eee of how program was started. 


Also it is important to use this Listing along with the information 
printed on the TTY to completly isolate problems. 





7.3 


8.2 





OPERATING RESTRICTIONS 


DV11 trial program must be run prior to the first and only the first 
running of any DV11 diagnostic if ‘‘AUTO SIZING’’ is not used. 

NOTE: If no program other than a DV11 diagnostic was loaded after Dv11 
trial or if core memory has not been changed;or if there is no DV11 
configuration changes; the DV11 trial program need never be run again. 
However if any of the above have been violated the DV11 trial program 
must be run again before running the diagnostics NOTE: An alternative 
to the above is attempting the ‘AUTO SIZING’ when program is initially 
started with Sw07=0. 


HARDWARE CONFIGURATION RESTRICTIONS (SYNC LINE CARDS ONLY) 


1. Hardware must be set to FULL DUPLEX 
2. ALL LINES OF A PARTICULAR LINE CARD MUST BE CONFIGURED THE SAME. 


MISCELLANEOUS 
EXECUTION TIME 


ALL DV11 device diagnostics will give an ‘END PASS' ~ eg - pnt: 
no errors and swi2=0) within 4 mins. This is assuming SW11=1 (DELET 
ITERATIONS) is set to give the fastest pose *ece execution. The actual 
execution time depends greatly on the PDP11 CPU configuration. 


PASS COMPLETE 


NOTE: *EVERY* time the program is started; the tests will run as_ if 
SW11 (delete iterations) was up (=1). This is to ‘VERIFY NO *HARD* 
ERRORS’ as soon as possible. Therefore the first pass -EACH TIME 
PROGRAM IS STARTED= will be a ‘QUICK PASS* untill all DV11'’s in system 
are tested. When the diagnostic has completed a pass the following is 
an example of the print out to be expected. 


END PASS CZDVD CSR: 175000 VEC: 300 PASSES: 000001 ERRORS: 


NOTE: The numbers for CSR and VEC are not necessarily the values for 
the device. They are only for this example. : 

NOTE: CZDVE (MODEM AND CABLE TEST) END PASS MESSAGE IS A LARGE ‘END’ 
typed out on yf Please note that each character printed is 
actually and ‘END PASS" indication. This was used in place of 
"BELL'' because if swi2=1 and an error occured the BELL may be 
mistaken for END PASS. The pass execution is so fast that the 
standard END PASS was too lenghtly. THEREFORE each char is an 
“END PASS and the entire ‘‘END'’ is not required for acceptance. 


8.4 


KEY LOCATIONS 
RETURN (1214) 


DVCROO=DVCR17 
DVSTOO-DVST17 
(1500) -(1736) 


DVACTV (1300) 


DVSCR (1362) 
1% 03 (1422) 


CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN WHEN 
et be count is reached or if loop on test is 


ted. 
CONTAINS THE opty OF wee NEXT TEST TO BE PERFORMED. 
oar THE NUMBER OF THE TEST NOW i PERFORMED. 

THE BIT IN ‘RUN’ ALWAYS POINTS ONE PAST THE Dv11 

Sent Ly being tested. EXAMPLE: (RUN) 
1302/0000000001000000 Means that DV11 no.05 is the Dv11 
now running. 


These locations contain the information needed to test 
up to 8 (decimal) DVlis sequentialy. eoey contain the 
as VECTOR and STATUS concerning the configuration of 


ach DV11. 
EACH BIT SET IN THIS LOCATION INDICATES THAT THE 
associated DV11 will be tested in turn. EXAMPLE: 
ys pt aaah ges eats means that DV11_ no 
01,02,03,04 Ll be tested. EXAMPLE: (DVACTY) 
12#6/6006006000010001 Means that DV11 no. 00,04 will be 


ted. 
CONTAINS THE RECEIVER CSR OF THE CURRENT DV11 UNDER 
test. 


7 (1424) 
OB 11 (1626) 
tt2. 15 (1430) — THE STATUS OF THE CURRENT DV11 UNDER TEST. 
BIT 15 Set Line card *NOT installed (AND WONT BE TESTED) 
BIT 14 SET: SET FOR PARITY ENABLED. 
BIT 13 SET: SET FOR EVEN PARITY ENABLED. 
BIT 12 Set: One sync, =0: two syncs. 
BIT 11 Set: Async Line card, =0 Sync Line card. 
BIT 10 Set: Reserved 
BIT 09 seen a ts + char. (used with bit8) 
BIT 08 er char. (used with bit9) 
Bit09 BIT08 BITS PER CHAR. 
0 0 8 
0 1 7 
Tes 
BIT 07-00 SYNC ‘A’ for specified line card. Bits 07-00 


must be all zeros for testing Async Line cards. 


se oo 





1502 
1504 



























8.4A MORE ON THAT ‘STATUS TABLE’ (1500-1736) 


"MAP OF DV11 STATUS‘ 
1500 175000 


5 50 
1502 000300 
1504 000226 
1506 00006 
1510 000226 
1512 000062 
1514 00 
1516 000000 
1520 004000 
1522 000000 


The above information will be go tng for each of up to 8 DV11's in the 
Syston (these will follow under t 
1500 175000 


is table). EXPLANATION: 
This is the system control register for the Ist DV11_ in 
the system. 

000300 This is vector ‘A’ for the first DV11 in the system. 

000226 This represents ‘SYNC A* and the software status for the 
Ist Line card in the ist DV11. The bits are as follows: 


BIT 15 Set: Line card *NOT installed (AND WONT BE TESTED) 
BIT 14 SET: PARITY ENABLED (USED WTH BIT 13) 
BIT 13 SET: PARITY ENABLED (USED WITH BIT 14) 
BIT14 B11T13 PARITY CONDITION 

0 0 NO PARITY 

1 0 ODD PARITY 

1 1 EVEN PARITY 
BIT 12 Set: One sync, =0: two syncs. | 
BIT 11 Set: Async Line card, =0 Sync Line card. 
BIT 10 Set: Reserved f 
BIT 09 Set: Bits per char. (used with bit8) 
BIT 08 r char. (used with bit9) 


Set: Bits pe 
var et ¥ BITS PER CHAR. 
0 1 
dk 
BIT 07-00 SYNC ‘A* for specified line card. 
000062 This represents ‘SYNC B‘ for the ist line card. 
000226 This is ‘SYNC A’ and Line status for the 2nd line card. 
(for bits defination see explanation for line card 1). 
000062 This is ‘SYNC B' for the second Line card. 7 
000226 This is ‘SYNC.A' and Line status for the 3rd line card. 
(for bits defination see explanation for Line card 1). 
000062 This is ‘SYNC B° for Line card no. 3. : 
000226 This is ‘SYNC A° and Line status for the 4th line card. 
(for bits defination see explanation for Line card 1). 
000062 This is SYNC B for the 4th Line card. 


The above is reneeret for each DV11 in the system. The table is 
filled | AUTO SIZING or by the manual parameter input program 
as described previously. Also if desired by user; the 
locations oer be altered by hand (toggled in) to suit the 
specific configuration. 


won ~_oo 





SEQ 0010 


8.5 
8.5.1 


8.5.2 


8.5.3 


ee METHOD OF AUTO SIZING *** 
FINDING THE CONTROL STATUS REGISTER. 


The program will start at address 175000 and start Bp yg te 
address. If a NON-EX MEMORY TRAP occures; the pointer eons, BS Ht ee 
is ated by 10 and the above is re ated untill address 540 3 
reached. If a ‘SLAVE SYNC RESPONSE' i issued by 7 A... os an 
other device) (no nxm trap) ( it (SELO) s=0) agin plus 
(SEL12) is tested to contain 177777 (MuST BE “ExACTLY 17 oe if a trap 
is ame ta t if SEL12 does not contain 1 7 the above updating is 
performed. f SEL12 was equal to 177777 the pointer is stored away and 
the routine aA as above: 

NOTE: If the program does not find your DV11; something is wrong and 
AUTO SIZING should not be done. 


FINDING THE VECTOR 


The vector area (address 300-776) is filled with the instruction I0T and 

*.+2° (mext address). Bit? and Bit6 (RX INTERUPT AND RX INTERUPT IE) 
are set into DVscr register; a delay is made and if no interupt occures 
(because of a bad DV11) the program assumes vector address 300 and the 
problem should be fixed in the diagnostic. Once the problem is fixed; 
the program should be re-setup again to get correct vector. If an 
interupt occured; the address to which the DV11 interupted to is picked 
up and reported as the vector. NOTE: if the vector reported is not the 
ee set up by you; there is a problem and AUTO SIZING should not be 
one. 


PARAMETER ASSUMPTIONS. 


Since too much hardware would need to be turned on to SIZE the rest of 
the parameters; the program must assume the remaining variations. The 
result if not to your specific configuration may be altered by hang 
(toggle in) is desired. In this way 95% of the parameter setup was done 
by t a ow and 5% by you. 


— 
ALL LINE CARDS(4) ARE ASSUMED TO BE INSTALLED. 
Set Bit15 of status map of any (approiate) Line cards missing 
2) TWO SYNCS. 
Set ei tts if you have a 4 Line group set for 1 sync. 
3) 5.6.7, OR 8 BITS PER CHARACTER 
Adjust +f. 9 and bit a in status map for your correct config. 
4) ODD, EVEN, OR NO PARITY ENABL 
ADJUST Bifte. AND BT13, IN STATUS MAP FOR YOUR 


CORRECT CONFIGURATION. 
5) preceneuaus LINE CARDS INSTALLED 
Set Bitl!l of status wee? for a sors a card and zero sync chars. 
6) SYNC ‘‘A''=226 AND SYNC ‘B‘'=062 E: FOR <8 BITS/CHARACTER 
TH NUMBERS my NAVE TO BE ADJUSTED TO 


ES : 
REFLECT CHARACTER LENGTH. 


In all adjustments please refer to section 8.4a for greter detail. 


9.0 


teeCHANGE HISTORYeee 


SEQ 0011 


NOTE: HISfORY BEGINS WITH REV. DO 


DO: MODIFIED PROGRAM TO OPERATE WITH 5,6,7, OR 8 BITS PER 
CHARACTER; ODD, EVEN, OR NO PARITY ENABLED. 


SEQ 0012 


nN 1 
CZDVD-D MACY11 eels oe 15:00 PAGE 2 
CZDVDD.P11 02-JUN-80 09:32 INTRODUCTION TO DV11 DIAGNOSCTIC SEQ 0013 


1 
3 *CZDVDD-0/<377>/CZDVDD0 DV11 ROM TST PRT2 
:*COPYRIGHT 1972,1980, DIGITAL EQUIPMENT _CORP., MAYNARD, MASS. 01754 


3 a Se eae eS Se SS om on we oe 


;STARTING PROCEDURE 

LOAD PROGRAM 

ZLOAD ADDRESS 000200 

ZPRESS START 

:PROGRAM WILL TYPE ‘'CZDVDD-0/<377>/CZDVDDO DV11 ROM TST PRT2" 

PROGRAM WILL TYPE “'R'" TO INDICATE THAT TESTING HAS STARTED 
THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 

AND THEN RESUME. TESTING 


SWITCH REGISTER OPTIONS 


100000 = 3=1,HALT ON ERROR 
3=1,LOOP ON CURRENT TEST 
:=1, INHIBIT ERROR TYPEOUT 
3=1,0CLETE TYPEOUT/BELL ON ERROR. 
_e INHIBIT ITERATIONS 
3=1,ESCAPE TO NEXT La ON ERROR 
[=1,LOOP WITH CURRENT DATA 
;=1,LOOP ON ERROR 
3=1, DO "AUTO SIZING’’ ON INITAL START UP. 


2 
3 
& 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
21 
2 
3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 





32 000004 SWO2=4 ;LOCK ON TEST SELECT 

33 000002 $w01=2 RESTART PROGRAM AT yeh TEST 

34 090001 swO0=1 :RESELECT DV11 DESIRED ACTIVE 

35 :NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 


CZDVD-D MACY11 
CZDVD0.P11 


Ay 
= JUN-80 


001200 


060000 
070000 


17-JUN-80 15:00 
09:32 


B 2 
PAGE 3 
GENERAL DEFINATIONS AND EQUIVALENCIES 


sREGISTER DEFINITIONS 


RO=20 sGENERAL REGISTER 

Ri=31 SGENERAL REGISTER 

R2=% GENERAL REGISTER 

R3=% GENERAL REGISTER 

R4=24 sGENERAL REGISTER 

R5=35 sGENERAL REGISTER 

fO=%6 PROCESSOR STACK POINTER 
PC=%7 ; PROGR OUN 


PS=177776 sPROCESSOR STATUS WORD 
STACK=1200 START OF PROCESSOR STACK 


BiT15=100000 


ALU ott 
RAM=B/T 
RPRCBITS0B1T12 
NPR=B171 

S. C= 111698171 
BCC=B1T14+B1T1 
BRB=B1T14¢B] T13+B1T12 


—— eee 







SEQ 0014 
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CZDVD=D MACY11 30A(10 
CZDVD0.P11 


02 


-jJUN- 


52) 17-JUN-80 15:00 PAGE 
80 09:32 


C 2 
- 


TRAPCATCHER FOR UNEXPECTED INTERUPTS 


pr eeeeeerereereceeeeeerereereercerereereeeeeeeeeeecerereeereeeeerereree 


;TRAPCATCAER FOR ILLEGAL INTERRUPTS 
THE STANDARD "TRAP CATCHER’ IS PLACED 
IBETWEEN ADDRESS 0 TO ADDRESS 776. 

ZIT LOOKS LIKE “'PC+2 WALT". 


. 
pr eeeeeerereereeerererrereeerereeererererereerereercereerarereeeerereTe 


70 


.21746 
LIGHT: 
7176 
SSWR: 


-=200 
001742 


=1000 


055103 053104 MTITLE: 


-=1200 


LIGHTS: 


Swe : 


TKCSR: 
TKDBR: 
TPCSR: 
TPDBR: 


RETURN: 


NEXT: 
LOCK: 


-PFAIL POWER FAIL HANDLER 

340 SERVICE AT LEVEL 7 

.HLT ERROR HANDLER 

340 SERVICE AT LEVEL 7 

. TRPSRV ;GENERAL HANDLER DISPATCH SERVICE 
340 ;SERVICE AT LEVEL 7 

-BLKW 1 SAVE FOR ACT=11 OR LDP2 

-BLKW 1 ;RETURN ADDRESS IF UNDER ACT-11 OR DDP2 
-BLKw 1 ;SAVE FOR ACT-11 OR DDP 

LOGICAL sFOR USE SITH ACT-11 OR DDP2 

0 

0 

JMP ~ START ;G0 TO START OF PROGRAM 


eASCIZ =<377><12>/CZDVDD-0/<377>/CZDVDDO DV11 ROM TST PRT2/<377> 


177570 

177570 

INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 

177560 TELETYPE KEYBOARD CONTROL REGISTER 
177562 ;TELETYPE KEYBOARD DATA BUFFER 
177564 sTELEPRINTER CONTROL REGISTER 
177566 ;TELEPRINTER DATA BUFFER 


PROGRAM CONTROL PARAMETERS 


0 SCOPE ADDRESS FOR LOOP ON TEST 
0 ;ADDRESS OF NEXT TEST TO BE EXECUTED 
0 ;ADDRESS FOR LOCK ON CURRENT DATA 


SEG 0015 


| 
| 
| 







dD 2 
CZDVD-D MACY11 30A(1052) 17-JUN-80 15:00 PAGE 5 
CZDVOD.P11 O2-JUN-80 09:32 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0016 


138 001222 000003 ICOUNT: 3 ;NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
139 001224 000000 LPCNT: 9 ;NUMBER OF ITEREATIONS COMPLETED 
140 IE T53 00 TSTNO: 0 ;NUMBER OF TEST IN PROGRESS 
141 0012 000000 PASCNT: 0 NUMBER OF PASSES COMPLETED 
142 001232 000000 ERRCNT: 0 ; TOTAL NUMBER OF 

ier 901234 000000 LSTERR: 0 ;PC OF LAST ERROR CALL 

145 PROGRAM VARIABLES 

147 LENE 

148 001236 000000 STAT 0 ;DV STATUS WORD STORAGE 

149 001240 000000 SYNCX: 0 

150 001242 000000 CLKX: 0 

151 001244 000000 MASKX: 0 

152 001246 000000 TEMP1: 0 ; TEMPORARY STORAGE 

153 001250 000000 TEMP2: 0 ; TEMPORARY STORAGE 

154 001252 000000 TEMP3: 0 ; TEMPORARY STORAGE 

155 001254 000000 TEMP4: 0 ; TEMPORARY STORAGE 

156 001256 000000 TEMPS: 0 ; TEMPORARY STORAGE 

157 001260 000000 SAVRO: 0 :RO STORAGE 

158 001262 000000 SAVR1: 0 ;R1 STORAGE 

159 264 100 SAVR2: 0 ;R2 STORAGE 

160 001266 SAVR3: 0 3R3 STORAGE 

161 001270 SAVR4: 0 3R4 STORAGE 

162 001272 000000 SAVRS: 0 3R5 STORAGE 

163 1274 000000 SAVSP: 0 STACK POINTER STORAGE 

164 001276 000000 SAVPC: 0 ;PROGRAM COUNTER STORAGE 
165 1 000001 DVACTV: .BLKB 1 ;DV11°S SELECTED ACTIVE. 
166 1301 1 DVNUM: .BLKB 1 ;OCTAL NUMBER OF DV11'S. 
167 001302 000001 SAVACT:,.BLKB 1 ORIGINAL ACTV. DEVICES. 
168 001303 000001 SAVNUM: .BLKB 1 ;WORKABLE NUMBER. 

169 001304 000001 RUN BLKB 1 ;POINTER ONE PAST RUNNING DEVICE. 
170 001306 -EVEN 

171 001306 001500 CREAM: DV.MAP ; TABLE POINTER. 










~ 
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172 

173 ;PROGRAM CONTROL FLAGS 

198 aan Seager 

176 001310 000 INIFLG: .BYTE 0 ;PROGRAM INITIALIZATION FLAG 

177.) (001311 000 ERRFLG: .BYTE 0 sERROR OCCURED FLAG 

178 001312 000 LOKFLG: .BYTE 0 ;LOCK ON read TEST FLAG 

179 001313 000 QV.FLG: .BYTE 0 ;QUICK VERIFY FLAG. 

M2 —_ 30N FIRST PASS OF EACH DV11 ITERATIONS WILL BE SUPPRESSE 
is 000000 $y=0 

184 :DEFINITIONS FOR TRAP SUBROUTINE oo 

185 sPOINTERS TO SUBROUTINES CAN BE FOUN 

1a 3 IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 

188 ° PIRAAARARAAAAAAHAAEAAAAA TERA AAA A AE EAAAEEREERAAERAAAARAEARAAARAHERAEEEE EEE 
189 : Peete eee ee eee cee cee e eee eee e ones ences eee erecenceeseeeces= 
190 001314 . TRPTAB: 

191 104400 SCOPE=TRAP+0 ;CALL TO SCOPE LOOP AND ITERATION HANDLER 
192 001314 002634 . SCOPE 

193 104401 SCOP1=TRAP+1 ;CALL TO LOOP ON CURRENT DATA HANDLER 

194 001316 003020 .SCOP1 

195 104402 TYPE=TRAP+2 ;CALL TO TELETYPE OUTPUT ROUTINE 

196 001320 003044 . TYPE 

197 104403 INSTR=TRAP+3 ;CALL TO ASCII STRING INPUT ROUTINE 

198 001322 003:20 . INSTR 

199 104404 INSTER=TRAP+4 ;CALL TO INPUT ERROR HANDLER 

200 001324 003224 . INSTER 

201 104405 PARAM=TRAP+5 ;CALL TO NUMERICAL DATA INPUT ROUTINE 

202 001326 003244 .PARAM 

203 104406 SAVOS=TRAP+6 ;CALL TO REGISTER SAVE ROUTINE 

204 001330 003444 .SAVO5 

205 104407 RESOS=TRAP+7 :CALL TO REGISTER RESTORE ROUTINE 

206 001332 003504 -RESOS 

207 104410 CONVRT= TRAP +10 | ;CALL TO DATA OUTPUT ROUTINE 

2 001334 003536 . CONVRT 

209 104411 CNVRT= TRAP +11 :CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
210 001336 003542 . CNVRT 

211 104412 MSTCLR= TRAP #12 ;CALL TO ISUE A MASTER CLEAR 

212 001340 004556 -MSTCLR 

213 104413 RAMCLR= TRAP+TS ;CALL TO CLEAR THE RAMS 

214 001342 004516 -RAMCLR 

215 104414 DELAY=TRAP+14 ;CALL TO VARIABLE DELAY COUNTER 

216 001344 004476 DELAY 

217 104415 ROMCLK=TRAB#15, ;CALL TO CLOCK ROM ONCE 

218 001346 5 -ROMCLK 

219 104416 DATACLK=TRAP+16 ;CALL TO CLK DATA 

220 001350 004576 .DATACLK 

$52 

223 : PRERERHRAERERHAAAAAeKee Ke AAeeeeteteeeeteteeeeteteeReeteteeeeeeeeeesene 



























' 2 


CZDVD=D MACY11 30A(1052) 17-JUN-80 15:00 PAGE 7 
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324 ;DVi1 VECTOR AND REGISTER INDIRECT POINTERS 
226 001352 000000 DVRVEC: 0 ;POINTER TO DV11 RECEIVER INTERRUPT VECTOR 
227 001354 DVRLVL: 0 ;POINTER TO DV11 RECEIVER INTERRUPT SERVICE PS 
228 001356 0000 DVTVEC: 0 SPOINTER TO DV11 TRANSMITTER INTERRUPT VECTOR 
229 001360 000000 DVTLVL: 0 SPOINTER TO DV11 TRANSMITTER INTERRUPT SERVICE PS 
230 001362 0000 DVSCR: 0 SPOINTER TO DV11 SYSTEM CONTROL REGISTER 
231 001364 DVSCRH: 0 :POINTER TO DV11 SYSTEM CONTROL REGISTER HIGH BYTE. 
232 001366 000000 DVRIC: 0 :POINTER TO DV11 NEXT RECEIVED CHARACTER REGISTER 
233 001370 000000 DVLCR: 0 :POINTER TO DV11 LINE PRAMETER REGISTER 
234 001372 000000 DVSRS: 0 SPOINTER TO DV11 SECONDARY REGISTER SELECT REGISTER 
235 001374 000000 CYSRSH: 0 SPOINTER TO DV11 SECONDARY REGISTER SELECT HIGH BYTE. 
236 001376 000000 DVSRA: 0 SPOINTER TO DV11 SECONDARY REGISTER ACCESS REGISTER 
237 001400 000000 DVSFR: 0 :POINTER TO DV11 SPECIAL FUNCTIONS REGISTER 
238 001402 000000 DVNSR: 0 SPOINTER TO DV11 NPR STATUS REGISTER 
259 001404 000000 RESV16: 0 :POINTER TO RESERVED REGISTER. 
241 
242 ;DV11 CONTROL INDICATORS FOR CURRENT DV11 UNDER TEST 
244 
245 001406 000000 MASK.A: .WORD 000 ;LAST CHAR TO TEST AND PARITY MASK FOR LINES 00-03 
246 001410 000000 MASK.B: .WORD 000 SLAST CHAR TO TEST AND PARITY MASK FOR LINES 04-07 
247 001412 000000 MASK.C: .WORD 000 ZLAST CHAR TO TEST AND PARITY MASK FOR LINES 08-11 
248 001414 000000 MASK.D: WORD 000 SLAST CHAR TO TEST AND PARITY MASK FOR LINES 12-15 
250 001416 010 CLK.A: BYTE 8 ;NUMBER OF CLOCKS NEEDED FOR ONE CHAR FOR LINES 00-03 
251 001417 010 CLK.B: .BYTE ;NUMBER OF CLOCKS NEEDED FOR ONE CHAR FOR LINES 04-07 
252 001420 = 010 CLK:C: ‘BYTE ZNUMBER OF CLOCKS NEEDED FOR ONE CHAR FOR LINES 08-11 
253 001421 010 CLK.D: BYTE ;NUMBER OF CLOCKS NEEDED FOR ONE CHAR FOR LINES 12-15 
255 001422 00000 L00.03: 000000 ;PARAMETERS FOR LINES 00-03 
256 001424 000000 L04.07: 000000 ;PARAMETERS FOR LINES 04- 07 
257 001426 000000 LO8.11: 000000 :PARAMETERS FOR LINES 08-11 
258 001430 000000 L12.15: 000000 ;PARAMETERS FOR LINES 12-15 
260 001432 000000 SYNC2A: 000000 ;SYNC 2 
261 001434 000000 SYNC2B: 000000 
262 001436 000000 SYNC2C: 000000 2 
263 001440 000000 SYNC2D: 000000 
265 ; SUMMARY 
266 Seaneant 
267 ; MASK . x 040 5 BITS PER CHAR 
268 100 6 BITS PER CHAR 
269 ; 200 7 BITS PER CHAR 
270 400 8 BITS PER CHAR 
272 CLK.X 005 5 BITS PER CHAR 
273 006 6 BITS PER CHAR. 
274 007 7 BITS PER CHAR 
275 010 8 BITS PER CHA RES iw 
276 IF PARITY 1S ENABLED; ADD PLUS ONE TO THE ABOVE "“CLK.X 
277 FOR EACH GROUP THAT PARITY IS ENABLED 
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sve 3DV11 STATUS TABLE AND ADDRESS ASSIGNMENTS 
280 
281 001500 .=1500 
282 001500 DV.MAP: 
283 001500 000001 DVCROO: .BLKW 1 ;CONTROL STATUS 2 6 al Ay DV11 NUMBER 00 
284 001502 DVTROO: .BLKW 1 ‘VECTOR "'A'’ FOR DV11 N 
285 001504 0 DVOO.A: .BLKW 1 ‘PARAMETER FOR LINES boos FOR DV11 NUMBER 00 
286 001506 001 SYNAOO: .BLKW 1 sSYNC TWO 
287 001510 000001 DVOO.B: .BLKW 1 S SARAMETER FOR LINES 04-07 FOR DV11 NUMBER 00 
288 001512 SYNBOO: .BLKW 1 ‘SYNC TWO 
289 001514 000001 Cv00.C: .BLKW 1 PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 00 
290 001516 000001 SYNCOO: .BLKW 1 SYNC Two 
291 001520 000001 DVOO.D: .BLKW 1 seaman TER FOR LINES 12-15 FOR DV11 NUMBER 00 
$38 001522 SYNDOO: .BLKW 1 ‘SYNC T wO 
294 001524 000001 DVCRO1: .BLKW 1 CONTROL STATUS REGISTER _ DV11 NUMBER 01 
295 001526 01 DVTRO1: .BLKW 1 ‘VECTOR "'A’’ FOR DV11 NUMBER 01 
296 001530 000001 DVO1.A: .BLKW 1 PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 01 
297 001532 0 SYNAO1: .BLKW 1 :SYNC TWO 
298 001534 000001 DVO1.8: .BLKW 1 *PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 01 
299 001536 000001 SYNBO1: .BLKW 1 >SYNC TWO 
300 001540 000001 DVO1.C: .BLKW 1 PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 01 
301 001542 000001 SYNCO1: .BLKW 1 > SYNC TwO 
302 001544 000001 DVO1.D: .BLKW 1 PARAMETER FOR LINES 12-15 FOR DV11 NUMBER 01 
=: 001546 000001 SYNDO1: .BLKW 1 SYNC TWO 
305 001550 000001 DVCRO2: .BLKwW 1 ; CONTROL STATUS REGISTER FOR DV11 NUMBER 02 
306 001552 000001 DVTRO2: .BLKW 1 :VECTOR "‘A'' FOR DV11 NUMBER 
307 001554 01 DVO2.A: .BLKW 1 PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 02 
001556 000001 SYNAO2: .BLKW 1 sSYNC T 

309 1560 000001 DVO2.B8: .BLKW 1 + SARARETER FOR LINES 04-07 FOR DV11 NUMBER 02 
310 001562 000001 SYNBO2: .BLKW 1 :SYNC TWO 
311 1564 01 DVO2.C: .BLKW 1 sPARAMETER FOR LINES 08-11 FOR DV11 NUMBER 02 
312 1 000001 SYNCO2: .BLKW 1 :SYNC TWO 
313 001570 000001 DVO2.D: .BLKW 1 hewn ke FOR LINES 12-15 FOR DV11 NUMBER 02 
s0 001572 000001 SYNDO2: .BLKW 1 SYNC TWO 
316 001574 000001 DVCRO3: .BLKW 1 CONTROL STATUS REGISTER FOR DV11 NUMBER 03 
317 001576 000001 DVTRO3: .BLKW 1 SVECTOR ""A'’ FOR DV11 NUMBER 03 
318 001600 000001 DVO3.A: .BLKW 1 Fiewg hy FOR LINES 60-03 FOR DV11 NUMBER 03 
319 001602 000001 SYNAO3: .BLKW 1 SYNC TWO 
320 001604 000001 DVO3.8: .BLKW 1 SS ARAMETER FOR LINES 04-07 FOR DV11 NUMBER 03 
321 001606 000001 SYNBO3: .BLKW 1 sSYNC T 
322 001610 000001 DVO3.C: .BLKW 1 >PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 03 
323 001612 000001 SYNCO3: .BLKW 1 SYNC TwO 
324 001614 000001 DVO3.D: .BLKW 1 : PARAMETER FOR LINES 12:15 FOR DV11 NUMBER 03 
NH 001616 000001 SYNDO3: .BLKW 1 sSYNC T 
327 001620 000001 DVCRO4: .BLKW 1 ;CONTROL STATUS REGISTER FOR DV11 NUMBER 04 
328 001622 000001 DVTRO4: .BLKW 1 “VECTOR "'A'’ FOR DV11 NUMBER 04 
329 001624 000001 DVO4.A: .BLKW 1 : PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 04 
330 001626 1 SYNAO4: .BLKW 1 7 SYN 
331 001630 000001 DV04.B8: .BLKW 1 SO ARARETER FOR LINES 04-07 FOR DV11 NUMBER 04 
$34 001632 SYNBO4: .BLKW 1 SYNC Tw 

33 001634 000001 DV04.C: .BLKW 1 ‘PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 04 
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PROGR 


AM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0020 
SYNCO4: .BLKW 1 sSYNC TWO 
DVO4.D: .BLKW 1 tog by FOR LINES 12-15 FOR DV11 NUMBER 04 
SYNDO4: .BLKW 1 ;SYNC TWO 
DVCROS: .BLKW 1 + CONTROL STATUS REGISTER FOR DV11 NUMBER 05 
DVTROS: .BLKW 1 ;VECTOR ‘‘A'' FOR DV11 NUMBER 
DVO5.A: .BLKW 1 PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 05 
SYNAOS: .BLKW 1 :SYNC T 
DVOS5.B: .BLKW 1 ‘ BARAMETER FOR LINES 04-07 FOR DV11 NUMBER 05 
SYNBOS: .BLKW 1 ;SYNC TWO 
DVOS5.C: .BLKW 1 ; PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 05 
SYNCOS: .BLKW 1 ;SYNC TWO 
DVO5.D: .BLKW 1 tong bey FOR LINES 12-15 FOR DV11 NUMBER 05 
SYNDOS: .BLKW 1 SYNC T 
DVCRO6: .BLKW 1 ;CONTROL STATUS REGISTER FOR DV11 NUMBER 06 
DVTRO6: .BLKW 1 :VECTOR ‘‘A'’ FOR DV11 NUMBER 
DVO6.A: .BLKW 1 PARAMETER FOR LINES 00-03 FOR DV11 NUMBER 06 
SYNAO6: .BLKW 1 SYNC TWO 
DV06.B: .BLKW 1 ;PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 06 
SYNBO6: .BLKW 1 :SYNC TWO 
DV06.C: .BLKW 1 ;PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 06 
SYNCO6: .BLKW 1 :SYNC TWO 
DV06.D: .BLKW 1 rey by FOR LINES 12-15 FOR DV11 NUMBER 06 
SYND06: .BLKW 1 :SYNC T 
DVCRO7: .BLKW 1 + CONTROL STATUS it aa FOR DV11 NUMBER 07 
DVTRO7: .BLKW 1 VECTOR ‘‘A’’ FOR DV11 NUMBER 07 
DVO7.A: .BLKW 1 : PARAMETER FOR LINES 00 O-08 FOR DV11 NUMBER 07 
SYNAO7: .BLKW 1 :SYNC TWO 
DVO7.B8: .BLKW 1 ;PARAMETER FOR LINES 04-07 FOR DV11 NUMBER 07 
SYNBO7: .BLKW 1 SYNC TWO 
DVO7.C: .BLKW 1 :PARAMETER FOR LINES 08-11 FOR DV11 NUMBER 07 
SYNCO7: .BLKW 1 SYNC TW 
DVO7.D: .BLKW 1 : PARAMETER FOR LINES 12-15 FOR DV11 NUMBER 07 
SYNDO7: .BLKW 1 SYNC T 
DV.END: 000000 


START: 


; PROGRAM gh h aA Ssh 


; L_ VECTOR 
[CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
;TYPE TITLE MESSAGE 


MOV #340,PS ; LOCK a! INTERRUPTS 

MOV #STACK SP SET UP STACK 

MOV #.PFAIL,a#24 :SET UP POWER FAIL VECTOR 

MOVB DVNUM , SAVNUM ;SAVE NUMBER OF DEVICES IN SYSTEM. 
CLR PASCNT CLEAR PASS vr 

CLRB ERRFLG ;CLEAR ERROR FLAG 

CLRB QV.FLG ZERO QUICK ho FLAG 

MOV #0V.MAP, CREAM :GET MAP POINTER 

MOVB #1 ,RUN [POINT POINTER TO FIRST DEVICE. 
CLR ERRCNT CLEAR ERROR COUNT 
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005037 
012737 
012737 
Sete 
001 
013 6 
BELA 
9050 
O12 
ad 


: 
7 


poleae 
000001 

001742 
001310 


000004 
000006 


000006 
002104 
177102 


177034 


006624 
005457 
001500 
177054 
177777 


000002 
000042 
000001 
005400 


176730 
005241 


176710 
000300 
000302 


001000 


001226 
001214 


000004 


001200 
001202 


001246 
001250 
001250 


001246 


176746 
001302 


001300 


15:00 PAGE 10 


I 


2 


PROGRAM INITIALIZATION AND START UP. 


80$: 


81$: 


16$: 


5$: 


1$: 


2s: 


3$: 
4$: 


+s "tee 
ii, 


1$ 
(SP)+,(SP)+ 
#LIGHT LIGHTS 
#SSWR,SWR 
(SP)+,6 
(SP)+,4 
eMTITLE 
INIFLG 
aswR 


16% 

PC ,CSRMAP 

. XHEAD 
#OV.MAP, TEMP) 


aTEMP1, TEMP2 
nirr7t, TEMP2 


#2, TEMP 
5$ 

a#4e 

3$ 
#SW00,aSWR 
3$ 

-MNEW 

RO 


@SWR,SAVACT 
2$ 
»MERRS 


72 
aSWR,DVACTV 
DVACTV,RO 
#°C<37?>,RO 


(R 
(RO)+,(Ri)+ 
#1000, R0 
4$ 


TSTNO 
#. START, RETURN 


; CLEAR wy? ERROR POINTER 
SET UP FOR TES 

SET UP FOR — FAIL BEFORE 

; TESTING START 

:HAS INITIALIZATION BEEN PERFORMED 
:BR IF YES 


. 
. 
° 
7 
. 
o 
° 
6 
. 
’ 


TYPE TITLE MESSAGE 

sI1f NOT SET FLAG AND DO 

:BIT7=1?? 

;BR IF NO AUTO SIZE 

3G0 DO THE AUTO SIZE 
TYPE HEADER 

;SET POINTER 

SET DATA 

;ALL DONE? 

;BR IF YES 


[UPDATE POINTER 

:1S PROGRAM RUNNING UNDER MONITOR 
‘BR IF YES 

SELECT SPECIFIC DEVICES?? 

[TYPE THE MESSAGE. 


:ZERO DATA LIGHTS 
WAIT FOR USER i WHAT DEVICES TO RUN 


Se Se Se Be Se Be Be Se 


IS OK. 

;TELL USER . INVALID NUMBER. 
:STOP EVERY THING 
:RESTART THE PROGRAM — 
—. NEW DEVICE PATTERN 
;SHOW THE USER WHAT HE SELECTED. 
iUSE ONLY LOW BYT 

ONTINUE DYNAMIC SWITCHES. 
‘ PREPARE TO CLEAR THE FLOATING 
sVECTOR AREA. 500-776 
START PUTTING vee - HALT" 
IN VECTOR AREA 
:POP POINTERS 
sALL DONE ?? 
:BR IF NO. 


SEQ 0021 
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CZ2DVDD.P11 02-JUN-80 09:32 PROGRAM INITIALIZATION AND START UP. SEQ 0022 
446 TEST START AND RESTART 
18 ee ee 
449 002332 012737 000340 177776 .BEGIN: MOV #340,PS ;LOCK OUT —* 
450 002340 0127 001200 MOV #STACK,SP ;SET UP STA 
451 002344 005737 000042 TST a#42 :1$ PROGRAM UNDER MONITOR CONTROL 
452 002350 001023 BNE 3$ ;BR IF YES 
453 002352 032777 000004 176622 BIT #B1T2,aSwR :CHECK FOR LOCK ON TEST 
454 002360 001411 BEQ 1$ :BR IF NO LOCK DESIRED. 
455 002362 104402 005277 TYPE »MLOCK :TYPE LOCK SELECTED. 
456 002366 012737 000240 002702 MOV #NOP,TTST ;ADJUST SCOPE ROUTINE. 
457 002374 012737 000240 002704 MOV #NOP,TTST+2 SET UP TO LOCK 
458 002402 000406 BR 23 ;CONTINUE ALONG. 
459 002404 013737 003014 002702 1$: MOV BRW,TTST PREPARE NORMAL SCOPE ROUTINE 
re poses 013737 003016 002704 ns MOV BRX,TTST+2 LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
462 002420 012737 005664 001214 38: MOV OCVCLE RE Tune «gh “CYCLE'' FIND WHICH DEVICE TO TEST 


463 002426 104402 005167 4$: TYPE 
002432 


M P 
000177 176556 ORE TURN :START TESTING 
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177570 


176336 
000260 


17-JUN-80 
:32 


176516 


001313 
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END OF PASS ROUTINE SEQ 0023 


sEND OF PASS 

;TYPE NAME OF TEST 
;UPDATE PASS COUNT 

CHECK FOR EXIT TO ACT-11 
;RESTART TEST 


RESET ;MAKE THE WORLD CLEAN AGAIN. 
CLR LSTERR ZCLEAR LAST ERROR PC 

CLRB ERRFLG ;CLEAR ERROR FLAG 

INC PASCNT ;UPDATE PASS COUNT 

MOV PASCNT ,@LIGHTS 4 8 og ‘ham COUNT 

TYPE »MEPASS TYPE END PASS 

TYPE oMCSRX TYPE CSR 

CNVRT ,XCSR ;SHOW IT 

TYPE oMVECK ;TYPE VECTOR 

CNVRT = ,XVEC SHOW IT 

TYPE oMPASSX ; TYPE PASSES 

CNVRT ,XPASS :SHOW IT 

TYPE »MERRX ; TYPE ERRORS 

CNVRT ,XERR ;SHOW IT 

DECB SAVNUM SARE ALL DEVICES TESTED? 
BNE RESTRT :BR_IF NO. 

MOVB #377 ,QV.FLG ;SET THE QUICK en FLAG. 
MOVB DVNUM , SAVNUM :RESTORE THE COUNT 

MOV a#42,R1 :CHECK FOR ACT=11 OR DDP 
BEQ RESTRT 71F NOT, CONTINUE TESTING 
RESET ;STOP THE SHOW--CLEAR THE WORLD 


"JSR Pc, (R1) 


: MOV #CYCLE ,RETURN 
CYCLE 


-BYTE 6,2 

-BYTE 3,2 

BYTE 6,2 
YTE 6,2 

ERRCNT 

SCOPE LOOP AND INTERATION HANDLER 


PE: 
CMP + ia SWR i1S os A REAL SWR? 
BEQ 64% “BR If Y 
MOV aTKDBR,-(SP) ;SAVE KEYBOARD CHAR 
BIC #BIT7, isp) sCLEAR PARITY BIT 
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521 002654 122726 000007 CMPB #7, (SP)¢ sWAS IT CNTRL ‘G' ? 
322 2660 00100 BNE +46 ‘BR IF NO. 
5 Boceee edb 004640 JSR PC, SERV. G SERVICE “'CNTRL ‘'G*"’. 
524 oes 005037 001234 648: CLR LSTERR CLEAR LAST ERROR PC 
525 00267 010016 MOV RO, (SP) SAVE RO ON THE STACK 
526 002674 032777 040000 176300 BIT #BiT14,aSwR :"LOOP ON THIS TEST'’? 
527 002702 001407 TTST: BEQ 1$ 5 BR IF NO. (IF LOCK sudis4; THIS LOC =240) 
$28 002704 000437 BR 3$ OTO 3$ CIF LOCK SWO1=1; THIS LOC =240) 
529 B05708 105777 176272 TSTB aTKCSR ;KEYBOAD ? 
530 002712 100034 BPL 3$ R IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 
531 002714 017700 176266 MOV aTKDBR,RO ;CLEAR DONE BIT 
532 002720 000415 BR TINUE 
533 002722 032777 004000 176252 1$: BIT #SW11,aSwR DELETE ITERATION? (QUICK PASS) 
534 002730 001011 BNE 2$ “BR IF Y 
535 002732 105737 001313 TSTB QV.FLG HAVE PASSES BEECOMPLETED? 
536 002736 001406 BEQ 2$ “BR IF QUICK PASS. 
537 002740 005237 001224 INC LPCNT UPDATE ITERATION COUNTER 
538 002744 023737 001224 001222 CMP LPCNT, [COUNT sARE ALL ITERATIONS DONE?? 
539 002752 001014 BNE bY ;BR IF NOT YET 
540 002754 105037 001311 2$: CLRB ERRFLG PREPARE FOR NEW TEST 
541 0027 005037 001224 CLR LPCNT sSTART ICOUNTER AT 0 
542 0027 005037 001220 CLR LOCK 
543 002770 012737 000024 001222 MOV #20.,1COUNT RESET boot as 
544 002776 013737 001216 001214 MOV NEXT, RETURN :GET NEXT TEST 
545 00 011600 — 3$: MOV (SP) ,RO : POP i OFF OF THE STACK 
546 003006 022626 POP2SP SFAKE A “RTI 
547 003010 000177 176200 JMP @RE TURN G0 DO THE TEST 
548 003014 001407 BRW: 1407 
a8 003016 BRX: 437 
333 ;CHECK FOR FREEZE ON CURRENT DATA 
553 
554 003020 032777 001000 176154 .SCOP1: BIT #SWO9,aSwR s1S SwO9=1(SET)? 
555 003026 001405 BEQ 1$ *BR IF NOT SET. 
556 003030 005737 001220 TST LOCK 
557 003034 09°40 BEQ 1$ 
558 003036 093716 001220 MOV LOCK, (SP) :GOTO THE ADDRESS IN LOCK. 
544 003042 000002 1$: RT] :G0 BACK. 
561 TELETYPE OUTPUT ROUTINE 
268 f Pome ewcococooococococe= 
564 003044 010546 .TYPE: MOV R5,-(SP) ; SAVE RS ON THE STACK. 
565 003046 017605 000002 MOV a2(SP),R5 GET ADDRESS OF MESSAGE. 
566 003052 $766 000002 000002 ADD #2,2(SP) ‘POP OVER ADDRESS. 
567 003060 032777 010000 176114 1$: BIT #SU12,aSWR : INHIBIT ALL PRINT OUT?? 
568 003066 OOr01g BNE 3$ ZBR IF NO PRINT OUT WANTED (SW12=1) 
569 003070 10571 TSTB (RS) S NUMBER MINUS? (MSB=1(BIT7)) 
570 003072 100002 BPL $ R IF NUMBER IS PLUS 
571 003074 106008 005104 TYPE »MCRLF TYPE A CR/LF 
572 003100 105777 176104 23: TSTB aTPCSR sTTY READY? 
573 003104 100375 BPL 23 IF NO. 
574 B01 112577 176100 MOVB (R5)+,@TPDBR [PRINT CURRENT CHAR. 
575 003112 001362 BNE 1$ z1f NOT ZERO KEEP PRINTING! 
576 003114 012605 3$: MOV (SP)+,R5 [END OF OUTPUT. RESTORE RS 
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a 2 
00 PAGE 14 
GENERAL UTILITIES (TYPE OUT, ERROR, SCOPE,ETC.) SEQ 0025 
RTI :G0 HOME 
.INSTR: MOV R3,-(SP) sSAVE R3 ON STACK 
MOV R4.=(SP) :SAVE R4 ON STACK 
MOV a4(SP), MSG 
ADD #2,4(SP) 
.INST1: TYPE 
MSG: O 
MOV #INBUF ,R4 
MOV #7,R3 
1%: TSTB = @TKCSR 
BPL 1$ 
MOVB  aTKDBR, (R4) 
BICB #200,(R4) 
CMPB (RG) 4,815 
BEQ INSTR 
2$: TSTB = aTPCSR 
BPL 2$ ) 
MOV @TKDBR,aTPDBR 
DEC R3 
BNE 1$ 
MOV (SP)+,R4 
MOV (SP)+,R3 
.INSTE: TYPE MOM 
MOV R3,-(SP) 
MOV R4,-(SP) 
BR INSTI 
INSTR2: MOV (SP)+,R4 :RESTORE R4 
MOV (SP)+,R3 [RESTORE R3 
RTI ; 
ZCONVERT ASCII STRING TO OCTAL 
.PARAM: MOV RS,-(SP) 
MOV R4.-(SP) 
MOV 4(§P),R5 
MOV (R5)+,LOLIM 
MOV (R5)*,HILIM 
MOV (R5)+,DEVADR 
mMOVB = (R5) +, LOBITS 
MOVB = (R5) +, ADRCNT 
MOV R5,4(SP) 
PARAM1: CLR R5 
MOV #@INBUF ,R4 
C #15, (R4) 
BEQ PARERR 
1$: CMPB s«( RG) , #60 
BLT PARERR 
CMPB ss (RG) , #67 
BGT PARERR 
BICB #60, (R4) 
BISB —s- (R45 +, RS 
CMPB #15, (RG) 
BEQ LIMITS 











CZDVD0.P11 O2-JUN-80 09:32 


020537 003436 
003372 020537 003434 
133705 003442 


003440 


05 000002 
003443 


001276 


N 2 
GENERAL UTILITIES (TYPE OUT, ERROR,SCOPE,ETC.) 


CZDVD=D MACY11 30A(1052) 17-JUN-80 15:00 PAGE 15 


ASL R5 
ASL R5 
ASL R5 

1$ 


BR 
PARERR: INSTER 
BR PARAM 


;TEST TO SEE IF NUMBER IS WITHIN LIMITS 


LIMITS: ad RS,HILIM 


HI PARERR 
CMP R5,LOLIM 
BLO PARERR 


L 
BITB LOBITS,R5 
BNE PARERR 


STORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVADR ,R4 


1$: MOV RS, (RG)+ 
ADD #2,R5 
DECB ADRCNT 
BNE 1$ 
MOV (SP)+,R4 
MOV (SP)+,R5 
RTI 

LOLIM: 0 

HILIM: 0O 

DEVADR: 0 


LOBITS: 0 
ADRCNT=LOBITS+#1 


SAVE PC OF TEST THAT FAILED AND RO-R5 


.SAVOS: MOV 4(SP) ,SAVPC sSAVE R7 (PC) 
;SAVE RO-R5S 

sv05: MOV R5,SAVR5 SAVE RS 
MOV R4,SAVRS ;SAVE R4 
MOV R3,SAVR3 SAVE R3 
MOV R2,SAVR2 sSAVE R2 
MOV R1,SAVR1 ;SAVE R1 
MOV RO,SAVRO ;SAVE RO 
RTI ;LEAVE 
RESTORE RO-RS 

-RESOS: MOV SAvRO,RO sRESTORE RO 
MOV SAVR1,R1 ;RESTORE R1 
MOV SAVR Me sRPESTORE R 
MOV SAVR5.R sRESTORE R 
MOV SAVRG RG SRESTORE RG 


MOV SAVRS RS ;RESTORE RS 


8 3 
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689 003534 000002 RTI SLEAVE 
+4 CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
69 : 
694 goss 36 104402 005104 .CONVR: TYPE MCRL 
695 003542 010046 .CNVRT: MOV RO,-(SP) 
69% 003544 010146 MOV R1,-(SP) 
697 003546 010346 MOV R3,-(SP) 
698 003550 010446 OV RS, = (SP) 
699 pos th 9 010546 MOV RS, -(SP) 
700 003556 017601 000012 MOV aid(sP) Ri 
701 003560 7 b00008 000012 ADD #2,12(SP) 
as pak ts 0121 00374 MOV (R1)*, WROCNT 
703 003572 112137 003744 1$: "0VB (R1)*, CHRCNT 
706 003576 112137 003745 ®OvB (R1)*,SPACNT 
705 003602 013137 003746 mOV a(R1)*+, BINWRD 
706 003606 013704 003746 28: OV BINWRD RG 
707 003612 113705 003744 "OVB CHRCNT RS 
708 003616 012700 005560 MOV STERP RO 
709 003622 010403 38: MOV 
710 003626 042703 17777A BIC #177770,R3 
711 003630 062703 ADD #060,R3 
712 003634 110320 mOvB R3, (RO) 
713 003636 000241 CLC 
714 003640 006006 RS 
715 003642 000241 CLC 
71 Sen) 006006 RG 
71 000241 CLC 
718 3650 006004 R4 
719 003652 005305 DEC RS 
720 003654 001362 BNE 38 
721 003656 012703 005622 MOV SRDATA,R3 
722 003662 et 48: m0v8 -(RO), (R3)¢ 
723. 003666 105337 003744 DECB CHRCNT 
724 003670 001374 BNE 43 
725 003672 105737 003745 TST SPACNT 

003676 001405 BEQ 4g 
727 003700 12793 000040 5$: mOVB #040, (R3)¢ 
728 003704 105337 003745 DECB SPACNT 
729 00371 901373 BNE 5$ 

003712 10501 6$: CLRB (R3) 
731 003714 1044 005622 TYPE ,MDATA | 
732 003720 005337 003742 DEC WROCNT 
733 003724 001322 BNE 1$ 
es 0037 o1 3603 MOV (SP)*,R5S 
5 bosyao g1Se03 my CCSP be 3 

Vv +, 

736 003734 13003 OV (SP)+,R1 
738 0037 12600 (SP)¢,R0 
739 0037 2 at! 
740 003742 000000 WROCNT: 0 
741 003744 000000 CHRCNT: 0 
7% 003745 SPACNT=CHRCNT +1 
3 003746 000000 BINWRD: 0 


a 
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745 
746 TRAP DISPATCH SERVICE 
747 i ARGUMENT OF TRAP IS EXTRACTED 
748 AND USED AS OFFSET TO OBTAIN POINTER 
769 [TO SELECTED SUBROUTINE 
751 003750 011646 .TRPSR: MOV (SP),-(SP) GET PC oF ARETURN 
752 003752 162716 000002 SUB #2, (SP) :=PC OF 
753 003756 017616 000000 MOV asp), (SP) :GET ten 
754 003762 006316 TPPOK: ASL (SP) sMULTIPLY TRAP ARG BY 2 
755 003764 042716 177001 BIC #177001, (SP) “CLEAR UNWANTED BITS 
756 003770 062716 001314 ADD #. TRPTAB, (SP) SDINTER TO SUBROUTINE ADDRESS 
757 003774 017616 000000 MOV aisP), (SP) SUBROUTINE ADDRESS 
258 004 000136 JMP asp) [GO TO SUBROUTINE 
760 sERROR HANDLER 
761 peter rcccesee 
762 
753 004002 “HLT: 
764 004002 022737 177570 CMP #177570, SwR :1S THERE A REAL SWR? 
765 004010 001411 BEQ 64$ <BR IF YES 
004012 017746 175170 MOV @TKDBR,-(SP) ;SAVE KEYBOARD CHAR 
767 004016 042716 000200 BIC #B1T7, (SP) “CLEAR PARITY BIT 
768 004022 122726 000007 CMPB «#7, (SP) ‘WAS IT hth G6’ ? 
769 004026 00100 BNE +6 BR IF 
770 004030 004737 004640 JSR PC, SERV.G ERVICES “ONTRL 'G'"’. 
771 004034 032777 010000 64$: BIT #SwWi2,aSwR BELL ON ERROR? 
772 004042 901406 BEQ XBX ‘BR IF NO BELL 
773 004044 105777 175140 TSTB aTPCSR ‘TTY READY. 
774 004050 100003 BPL ‘DON'T WAIT IF TTY NOT READY. 
775 006052 112777 000207 MOVB $307 aTPpBR :PUSH A BELL AT THE TTY. 
776 006060 032777 020000 XBX: BIT #Sw13,aSwR SDELETE ERROR PRINT OUT? 
777 004 001105 BNE HALTS ‘BR IF NO PRINT OUT WANTED. 
778 004070 021637 001234 CMP (SP) LSTERR ‘WAS THIS ERROR FOUND LAST TIME? 
004074 001404 BEQ <BR IF YES 
004076 011637 001234 MOV (SP) ,LSTERR [RECORD BEING HERE 
781 004102 105037 001311 CLRB —s ERRFLG [PREPARE HEADER 
782 004106 104406 1$ SAVOS “SAVE ALL PROC REGISTERS 
783 004110 011605 MOV (SP) ,R5 [GET THE PC OF ERROR 
784 004112 162705 000002 SUB #2,R5 [GET ADDRESS OOF TRAP CALL 
785 004116 011504 MOV (R5) RG “GET HLT INSTRUCTION 
786 004120 006304 ASL R4 “MULT BY T 
787 004122 061504 ADD (RS) RG : DOUBLE a 
788 004124 006304 ASL R4 “MULT AGAIN 
789 004126 042704 177001 BIC #177001,R4 [CLEAR JUNK 
790 004132 062704 037360 ADD #.ERRTAB,R4 =GET POINTER 
791 004136 012437 004252 MOV (RG)+, ERRMSG § :GET ERROR MESSAGE 
792 004142 012437 004264 MOV (R4)+.DATAHD § :GET DATA HEADRER 
793 004146 011437 004276 MOV (RG) ,OATABP :GET DATA TABLE 
794 004152 105737 001311 TSTB = ERRFLG TYPE HEADREER 
795 004156 001403 BEQ TYPMSG “BR IF YES 
796 004160 005737 004276 TST DATABP :DOES DATA TABLE EXIST? 
797 004164 001040 BNE TYPDAT ‘BR IF YES. 
798 004166 104402 005104 TYPMSG: TYPE CRLF 
799 004172 104402 005104 TYPE  ,MCRLF 
B00 004176 005737 001220 TST Cock 
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801 004202 001402 BEQ 1$ 
BOZ 004204 104402 005376 TYPE —_, MASTEK 
BOS 004210 104602 005364 1$: TYPE. MTSTN 
B04 004214 104411 004374 CNVRT — ;XTSTN ;$HOW 1T 
B05 004220 104402 005452 TYPE —, MERRPC STYPE PC 
BOG 004224 106411 004566 CNVRT — SERTABO :SHOW IT 
807 004230 104402 005104 TYPES MCRLF SGIVE A_CR/ 
808 006234 112737 177777 001311 MOVE = #-1 ,ERRFLG {NO MORE HEADER UNLESS NO DATA TABLE. 
809 004242 005737 004252 TST ERRMSG SIS THERE AN ERROR MESSAGE? 
810 004246 001402 BEQ = WRKO. FM :BR IF NO. 
B11 004250 104402 TYPE TYPE 
B12 004252 0000 ERRMSG: 0 ; ERROR MESSAGE 
B13 004254 WRKO.FM: 
B14 004254 005737 004264 TST DATAHD :DATA HEADER? 
B15 004260 001402 BEQ —TYPDAT :BR IF NO 
B16 004262 104402 TYPE TYPE 
B17 004264 000000 DATAHD: 0 ; DATA HEADER 
B18 004266 005737 004276 TYPDAT: TST  DATABP SDATA TABLE? 
B19 004272 001402 BEQ _—-RESREG :BR IF NO. 
820 004274 104410 CONVRT ; SHOW 
821 004276 000000 DATABP: 0 ; DATA TABLE 
822 004300 104407 RESREG: RESOS SRESTORE PROC REGISTERS 
823 004302 005777 174674 HALTS: TST aSwR ;HALT ON ERROR? 
824 004306 100005 BPL EXITER ;BR IF — HALT ON ERROR 
825 004310 010046 PUSHRO ISAVE R 
826 004312 016600 000002 MOV —-2( SP) ,RO ‘SHOW ERROR PC IN DATA LIGHTS 
827 004316 000000 HALT SHALT 
828 004520 012600 POPRO :GET RO 
829 3 005237 001232 EXITER: INC ERRCNT ;UPDATE ERROR COUNT 
830 004326 032777 000400 174646 BIT #SWOB,aSuR :GOTO TOP OF TEST? 
831 004334 001007 BNE :BR IF YES 
832 004336 032777 002000 174636 BIT #SW10,aSwR :GOTO NEXT TEST? 
B33 004344 001407 BEQ F NO 
B34 004346 013737 001216 001214 MOV NEXT,RETURN © SET-FOR NEXT TEST 
835 004354 012706 001200 1$: MOV #STACK,SP ;RESET SP 
836 004360 000177 174630 JMP RETURN :GOTO SPECIFIED TEST 
837 004364 000002 28: RTI ; RETURN 
838 004366 000001 ERTABO: 1 
839 006370 0 002 .BYTE 6.2 
840 004372 001276 SAVPC 
841 004374 000001 XTSTIN: 1 
B42 004376 003 «(002 .BYTE 3,2 
B43 004400 001226 7STNO 
Bad ;ENTER HERE ON POWER FAILURE 
845 j Coweeweceneseesossseeseses= 
B46 
847 
848 006402 .PFAIL: 
B49 004402 012737 006414 000024 MOVs #RESTART,24 ;SET UP FOR POWER UP TRAP 
850 004410 000000 HALT ;HALT ON POWER DOWN NORMAL 
851 006412 000777 BR 
855 ;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
855 004414 RESTAR: 
B56 004414 012737 004402 000024 MOV # PFAIL, 24 ;SET UP FOR POWER FAILURE 
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857 004422 012706 001200 MOV #STACK,SP sRESET i. STACK POINTER 

858 004426 005037 005560 CLR TEMP s;READY FOR TIMMER 

859 004432 Bseaf 005560 INC TEMP PLUS ONE TO THE TIMER! 
004436 001375 BNE 74 :BR IF MORE TO GO 

861 904440 104402 095107 TYPE »MPFAIL ; TYPE THE MESSAGE 

862 004444 104411 004470 CNVRT ,PFTAB ‘TELL WHAT aes TO RETURN TO. 

863 004450 105037 001311 CLRB ERRFLG 3 START CLEAN 
004454 005037 001234 CLR LSTERR pee Sane ae 

865 004460 104412 MSTCLR START CLEAN uP OF DEVICE 
004462 104413 RAMCLR sCLEAR IT A 

867 004464 000177 174524 JMP @RETURN START DOING THAT TEST AGAIN. 
004470 000001 FSTAB: 1 
004472 003 002 -BYTE 3,2 

870 004474 001226 TSTNO 

871 004476 010046 - DELAY: MOV RO,-(SP) 

872 004500 013700 004514 MOV 1$,R0 

873 004504 005300 DEC RO 

874 004506 1376 BNE .72 

875 004510 012600 MOV (SP)+,RO 

876 004512 000002 RTI 

144 004514 000036 1$: 30. 

879 004516 -RAMCLR: 

880 004516 012777 004000 174636 MOV #MRESET,@DVSCR ;ISSUE A MASTER CLEAR 

881 004524 010146 MOV R1,-(SP) sSAVE R1 ON THE STACK 

882 004526 010446 MOV R4,-(SP) SAVE R4& ON THE STACK 

883 004530 013701 001372 MOV DVSRS,R1 :GET SECONDARY SEL. REG. 

884 004534 013704 001376 MOV DVSRA,R4 3GET SECONDARY REGISTER ACCESS REG. 

885 004540 005014 1$: CLR (R4) ‘ZERO THE SECONDARY REGISTER. 

886 004542 062711 170361 ADD #°C<B1T11#B1110+B119+B118+B113+B112+B1T1+B1T0>+B1T0, (R1) 

887 004546 001374 BNE 1$ 

888 004550 012604 MOV (SP)+,R4 RESTORE R4 

889 004552 012601 MOV (SP)+,R1 RESTORE R1 

ze 004554 000002 RTI 

892 004556 -MSTCLR: 

893 004556 012777 004000 174576 MOV WMRESET,@DVSCR ;ISSUE MASTER CLEAR. 

be: 004564 000002 RT] 

896 304566 -ROMCLK: 

897 004566 052777 000002 174566 BIS #BIT1,aDVSCR 

404 004574 000002 RTI 

900 004576 .DATACLK: 

901 004576 010046 MOV RO,-(SP) 

902 004600 005000 CLR R 

903 004602 052777 000400 174560 BIS #B1TB,aDVLCR 
004610 017737 174554 004636 18: MOV @DVLCR,3$ 

905 004616 106037 004637 RORB 3$+1 
004622 103003 BCC 2$ 

907 004624 005200 INC RO 

908 004626 001370 BNE 1$ 

909 004630 104000 HLT 0 

910 004632 012600 23: MOV (SP)+,RO 

911 004634 000002 RTI 

912 004636 000001 3$: -BLKW 1 
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913 
914 004640 032777 004000 174336 SERV.G: BIT #4000, ,aTKCSR ;RX BUSY? 
915 004646 001374 BNE SERV.G ‘BR IF YES 
916 004650 017737 174326 005072 MOV aSWR,90$ 'SAVE (SWR). 
917 004656 013777 005072 174316 1S: MOV 90$,aswr : 
918 004664 104402 005052 TYPE 89% ; 
919 004670 104411 005064 CNVRT .88$ : 
920 004674 104402 005074 TYPE 91% : 
921 004700 105777 174300 TSTB aTKCSR ;WAIT FOR DONE. 
922 004704 100375 BPL <4 
923 004706 017746 174274 MOV @TKDBR,-(SP)_—_; 
924 004712 042716 000200 BIC #B1T7, (SP) : 
925 004716 122726 000015 CMPB #15, (SP) + : 
926 004722 001450 BEQ 5$ : 
927 004724 005077 174252 CLR aSwR : 
928 004730 105777 174254 2$: TSTB aTPCSR ; 
929 004734 100375 BPL a4 
930 004736 016677 177776 174246 MOV -2(SP) ,aTPDBR 3 
931 004744 000241 CLC ; 
932 004746 006177 174230 ROL aswR : 
933 004752 006177 174224 ROL aswR : 
934 004756 006177 174220 ROL aswR : 
935 004762 103735 BCS 1$ “ERROR 
64 026627 177776 000060 CMP -2(SP) , #60 ; 
937 004772 002731 BLT 1$ : 
938 004774 026627 177776 000067 CMP -2(SP) #67 : 
939 005002 003325 BGT 1$ ; 
940 005004 pee 766 177770 177776 BIC #*C<7>,-2(SP) : 
941 005012 05667 177776 174162 BIS -2(SP),aSwR : 
942 005020 105777 174160 TSTB. = @TKCSR ; 
943 005024 100375 BPL _ ; 
944 005026 017746 174154 MOV @TKDBR,-(SP) 
945 005032 042716 000200 BIC #B1T7, (SP) 
946 005036 122726 000015 CMPB #15, (SP) + 
947 005042 001332 BNE 2$ : 
948 005044 104402 005104 5$: TYPE —_, MCRLF : 
949 005050 000207 RTS PC 
951 005052 020377 051450 051127 89%:  .ASCIZ <377>? (SWR)=/? 
952 005060 036451 000057 
953 ~EVEN 
954 005064 000001 a8$: 1 
955 005066 006 000 .BYTE 6,0 
956 005070 005072 90$ 
957 005072 00 90$: .WORD 0 
958 005074 036457 000057 18: “ASCIZ  2/=/? 
960 005100 020040 000077 MOM: .ASCIZ / 2/ 
(2) 005104 005015 000 MCRLF: .ASCIZ  <15><12> 
(2) 005107 377 053520 020122 MPFAIL: .ASCIZ <377>/PWR FAILED. RESTART AT TEST / 
(2) 005145 377 047105 020104 MEPASS: .ASCI2 <377>/END PASS CZDVDD / 
(2) 005167 377 000122 MR : "ASCIZ <377>/R/ 
(2) 005172 050377 047522 051107 MERR2: .ASCIZ <377>/PROGRAM INDICATES NO DEVICES PRESENT./ 
(2) 005241 377 047111 052523 RR3: ASCIZ <377>/ INSUFFICIENT DATA!/ 
(2) 005265 377 042524 052123 MISTPC: .ASCIZ <377>/TEST PC-/ 
(2) 005277 377 047514 045503 MLOCK: ASCIZ <377>/LOCK ON SELECTED TEST/ 
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MVECX eASCIZ /VEC: 
MPASSX: .ASCIZ /PASSES: / 
MERRX -ASCIZ /ERRORS: / 
MTSTN -ASCIZ Ae a NO: / 
MASTEK: .ASCIZ 
EW: eASCIZ C397>/SE SWITCH REG TO DV11'S DESIRED ACTIVE./ 
MERRPC: .ASCIZ /PC: / 
ee -ASCIZ <377>/MAP OF DV11 STATUS/<377> 
. Vv 
XSTATQ: 2 
-BYTE 6,3 
TEMP 1 
-BYTE 6,2 
TEMP2 
EVEN 
sBUFFERS FOR INPUT-OUTPUT 
INBUF: 0 
=,+40 
TEMP: 0 
=,+40 
MDATA: 0O 
=,+40 


a 


SEQ 0032 


H 3 ae ae een] 
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975 

976 

977 “ROUTINE USED TO ‘"‘CYCLE’’ THROUGH UP TO EIGHT DV11'S 
978 ;THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
979 ‘AND RUNS THE SPECIFIED Dv11'S. THIS ROUTINE *MUST* 
980 ‘BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
981 ;SETUP NECESSARY. 

a : 

984 005664 105737 001300 CYCLE: TSTB DVACTV ; ARE a DV11'S TO BE TESTED? 
985 005670 001004 BNE 1$ °] K. 

986 005672 104402 005172 TYPE »MERR2 “NO Mat S SELECTED!! 

987 005676 000000 HALT :STOP THE SHOW. 

988 005700 000776 ' BR .72 “DISQUALIFY CONT. SW. 

989 005702 133737 001304 001300 1$: BITB RUN ,DVACTV :1S THIS ONE “ACTIVE” 

990 005710 001020 BNE 2$ :BR IF GOOD ONE FOUND. 

991 005712 000241 ' CLC [CLEAR PROC. CARRY BIT. 

992 005714 106137 001504 ROLB RUN sUPDATE POINTER 

993 005720 105537 001304 ADCB RUN sCATCH CARRY FROM RUN 

994 005724 062737 000024 001306 ADD #24,CREAM ;UPDATE ADDRESS POINTER. 

995 005732 022737 001740 001306 CMP #0V.END, CREAM 

996 005740 001360 BNE 1$ sKEEP GOING; NOT ALL TESTED FOR. 
997 005742 012737 001500 001306 MOV #DV.MAP,CREAM ;RESET ADDRESS POINTER. 

998 005750 000754 8k 1$ :KEEP LOOKING FOR ACTIVE DV11 
999 005752 000241 2s: CLC ;CLEAR PROC. CARRY. 

1000 005754 106137 001304 ROLB RUN “UPDATE rom. 

1001 005760 105537 001304 ADCB RUN CATCH CAR 

100 0057 013700 001306 MOV CREAM,RO :GET ADDRESS "POINTER. 

1003 005770 062737 000024 001306 ADD #24,CREAM ‘UPDATE. 
1004 005776 022737 001740 001306 CMP #DV.END, CREAM 
1005 ;ALL DONE? 
1006 001003 BNE 3$ 3;BR IF NO. 

1007 012737 001500 001306 MOV #DV.MAP,CREAM sRESTORE POINTER. 

1008 006014 012037 001362 3$: MOV (RO)+,DVSCR sLOAD SYSTEM CTRL. REG 

1009 006020 012037 001352 MOV (RO) +, DVRVEC ;LOAD VECTOR 

1010 006024 012037 001422 MOV (RO)+,L00.03 “GET LINE PARAMETERS. 00-03 
1011 006030 012037 001432 MOV (RO)+,SYNC2A : 

1012 006034 012037 001424 MOV (RO)+,L04.07 : 04-07 
1013 006040 012037 001434 MOV (RO)+,SYNC2B ; 

1014 006044 012037 1426 MOV (RO)+,L08.11 : 08-11 
1015 006050 012037 1436 MOV (RO)+,SYNC2C z 

1016 006054 01203 1430 MOV (RO)#,L12.15 ; 12-15 
1017 012037 001440 MOV (RO)+, SYNC2D : 

1018 006064 012700 000002 MOV #2,R0 SAVE CORE THIS WAY! 

1019 006070 013737 001362 001364 MOV OVSCR,DVSCRH GET SYS CTRL. REG HIGH BYTE. 
1020 006076 005237 001364 INC DVSCRH :GOT IT. 

1021 006102 013737 001364 001366 MOV over at. DVRIC ;GET NXT REC. CHAR REG. 

1022 006110 005237 001366 INC DVRIC GOT IT 

1023 006114 013737 001366 001370 MOV DVRIC,OVLCR ;GET LN. PAR.REG. 

1024 006122 060037 001370 ADD RO,DVLCR GOT IT 

1025 006126 013737 001370 001372 MOV DVLCR,DVSRS sGET SEC. REG. SEL. REG. 
1026 006134 060037 001372 ADD RO,DVSRS GOT IT 

1027 006140 013737 001372 001374 MOV DVSRS,DVSRSH :GET HIGH BYTE. 

1028 006146 005237 001374 INC DVSRSH GOT IT 

1029 006152 013737 001374 001376 MOV DVSRSH,DVSRA sSEC. REG. ACCESS. 

1030 006160 005237 001376 INC DVSRA GOT IT 
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GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


4$: 


-BYTE 


5$: 


DVSRA,DVSFR :SPEC. FUN. REG. 

DVSFR,DVNSR “NPR STAT. REG. 

RO,DVNSR ; 

DVNSR,RESV16 =: RESERVED REG 

RO,RESV16 ; 

DVRVEC,DVRLVL  ;PTY LVL 

RO,OVRLVL 4 

DVRLVL,DVTVEC TX VEC 

RO ,DOVTVEC ; 

DVTVEC,DVILVL TX LVL 

RO,DVTLVL 

#L.00.03,R0 sLOAD STAUS 00-03 

#MASK.A.RI [PREPARE MASK. 

#CLK.A,R2 [PREPARE CLOCKS 

PC, FIX.00 :GO AND CALCULATE CONFIGURATION. 
#L.04.07,R0 SLOAD STAUS 00-03 

#MASK.B.RI [PREPARE MASK. 

#CLK.B,R2 ‘PREPARE CLOCKS 

PC,FIX.00 °GO AND CALCULATE CONFIGURATION. 
#L.08.11,R0 :LOAD STAUS 00-03 

#MASK.C.RI [PREPARE MASK. 

#CLK.C,R2 [PREPARE CLOCKS 

PC, FIX.00 [GO AND CALCULATE CONFIGURATION. 
#112.15,R0 :LOAD STAUS 00-03 

#MASK.D.R1 [PREPARE MASK. 

#CLK.D,R2 “PREPARE CLOCKS 

PC, FIX.00 :GO AND CALCULATE CONFIGURATION. 
#SWO1,aSWR 

$ 

aes 

7$ 

SMCRLE 

#TST1,RO 

(PC) +, (RO) 

(PC)+.a(PC)+ 

6$ 

TSTNO,2(RO) 

#TSTNO,4(RO) 

RO, RETURN 


J 3 
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1087 006456 104403 005104 TYPE MCRLF 
1088 006462 00041 BR bs 
1089 006464 005720 6$: TST (RO)+ 
1090 006466 020027 022516 CMP RO, #TLAST+*+10 
1091 006472 001354 BNE 5$ 
1092 006474 104402 005100 TYPE MOM 
1093 006500 000733 BR 
1094 006502 012737 007256 001214 /7$: MOV #TST1,RETURN ;PREPARE RETURN ADDRESS 
344 006510 000177 172500 8$: JMP @RETURN 3G0 START TESTING. 
1097 006514 011003 FIX.00: MOV (RO) ,R3 ;GET PARAMETERS. 
1098 006516 042703 176377 BIC #°C<i400>,R3 CLEAR JUNK. 
1099 006522 005703 TST R3 sTEST FOR EIGHT BITS. 
1100 006524 001005 BNE 1$ “BR IF NOT 8 BITS. 
1101 006526 012711 000400 MOV #400, (R1) :SET FOR 8 BITS PER CHAR 
1102 006532 112712 000010 MOVB = #8. , (R2) ; 
1103 006536 000424 BR 4$ 
1104 006540 022703 000400 1$: CMP #400,R3 ;CHECK FOR SEVEN BITS. 
1105 006544 001005 BNE 2$ :BR IF NOT 7 BITS. 
1106 006546 112711 000200 MOVB #200, (R1) : 
1107 006552 112712 000007 MOVB = #7, (R2) ; 
1108 006556 000414 BR 4$ 
1109 006560 022703 001000 2$: CMP #1000,R3 sCHECK FOR SIX BITS. 
1110 006564 001005 BNE 3$ ‘BR IF NOT SIX BITS. 
1111 006566 112711 000300 MOVB #300,(R1) : 
1112 006572 112712 000006 MOVB = #6, (R2) ; 
1113 006576 000404 BR 4$ 
1114 0066 112711 000340 3$: MOVB #340, (R1) ;1F NONE OF THE ABOVE; MUST BE 5 BITS. 
1115 112712 000005 MOVB = #5, (R2) : 
1116 006610 032710 040000 4$: BIT #PARBIT, (RO) sPARITY ENABLED? 
1117 006614 001401 BEQ 5$ :1f =0; THEN NO PARITY. 
1118 006616 105212 INCB (R2) sPLUS ONE TO THE CLOCK! 
1119 006620 000207 5$: RTS PC ; 
1121 s*ROUTINE USED TO “AUTO SIZE" THE DV11 
1122 [*CSR AND VECTOR. 
1123 s*NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
1124 ie ADDRESS RANGE (175000:175400) 
1125 ie AND THE VECTOR MAY BE ANY WHERE IN THE 
1158 3* FLOATING VECTOR RANGE (300:770) 
*® 
1128 
1129 006622 AUTO.SIZE: 
1130 006622 000005 RESET ; INSURE A BUS INIT. 
1131 poeee 012702 001500 CSRMAP: MOV #OV.MAP,R2 ;LOAD MAP POINTER. 
1132 006630 005022 1$: CLR (R2)+ :ZERO ENTIRE MAP 
1133 006632 022702 001740 CMP #0V.END,R2 [ALL DONE? 
1134 006636 001374 BNE 1$ ‘BR IF NO 
1135 006640 105037 001301 CLRB = DVNUM ?SET OCTAL NUMBER OF DV11'S TO 0 
1136 006644 012702 001500 MOV #DV.MAP,R2 
1137 006650 012701 175000 MOV #175000.R1 :SET FOR FIRST ADDRESS TO BE TESTED 
1138 006654 012737 007074 000004 MOV #6$,a04 “SET FOR NON-EXISTANT DEVICE TIME OUT 
1139 006662 005711 2s: TST (R15 ‘IF DV11 DVSCR S/B 0 
1140 006664 001037 BNE 3$ ‘IF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO DV11 
1141 022761 177777 000012 CMP #177777,12(R1) = IF OV11 THEN DVSFR S/B ALL 1°S ON INIT! 
1142 006674 001033 BNE 3$ ‘BR IF NOT DV11 
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GENERAL UTILITIES (TYPE OUT, ERROR, SCOPE,ETC.) 
TST 16(R1) :1F DV11 THEN RESV16 S/B ALL 0°S 
BNE 3$ BR IF NOT DV1 

:AT THIS POINT IT I$ ASSUMED twat’ R1 HOLDS A DV11 CSR ADDRESS. 

MOV R1,(R2)+ :STORE CSR IN CORE TABLE. 
TST iRdye :POP OVER VECTOR STORE AREA 
BI #226, (Ree ;SET LINE CARD 1 STAT AND SYNC 
BIS 4096, (a2) °SET LINE CARD 2 STAT AND SYNC 
BIS #62, (R2)¢+ : 
BIS #226, (R2)+ “SET LINE CARD 3 STAT AND SYNC 
BIS #62, (R2)+ : 
Bis #226, (R2)+ ;SET LINE CARD 4 STAT AND SYNC 


BIS #62, (R2)+ 


INCB —DVNUM :UPDATE Device COUNTER 
CMPB ss #10, DVNUM ARE M 
BEQ 100$ YES DON? T ot FOR ANY MORE. 
3$: ADD #10,R1 ‘UPDATE CSR POINTER ADDRESS 
CMP #175400,R1 
BNE 2$ :BR IF MORE ADDRESS TO CHECK. 
100$: MOV n77777, (R2)+  :TERMINATER. 
CLRB —s DVACTV 
TSTB. —s DVNUM sWERE ANY DV11°S FOUND AT ALL? 
BEQ 5$ ‘ERROR AUTO SIZER FOUND NO DV11'S IN THIS SYS. 
MOVB - DVNUM,R1 
* OVE R1, SAVNUM :SAVE NUMBER OF DEVICES 
ROLB = DVACTV :GENERATE ACTIVE REGISTER OF DEVICES. 
INCB DVACTY “SET THE BIT 
BNE 4$ :BR IF MORE TO GENERATE 
MOV #6086 “RESTORE TRAP VECTOR 
MOVB  DVACTV,SAVACT SAVE ACTIVE REGISTER 
JMP VE CMAP 60 FIND THE VECTOR NOW. 
5$: TYPE  ,MERR2 “NOTIFY OPR THAT NO DV11"S FOUND. 
CLR RO [MAKE DATA LIGHTS ZERO 
HALT “STOP THE SHOW 
BR 2 ‘DISABLE CONT. SW. 
6$: MOV #38, (SP) “ENTERED BY NON-EXISTANT TIME-OUT. 
RTI [RETURN TO MAINSTREAM 
VECMAP: MOV #340, a#22 :SET 10T TRAP PRIO TO 7 
MOV a#20 ‘SET [OT TRAP VECTOR 
MOV wv. th R2 “SET SOFTWARE POINTER 
MOV #300,RO ‘FLOATING VECTORS START HERE. 
MOV #302,R1 [PC OF 10T INST 
1$: MOV ie (R0}+ SSTART FILLING VECTOR AREA 
MOV R1)+ ‘WITH .4#2; IOT 
CMP tno) (R1)+ [ADD 2 TO RO +R1 
CMP R1,#1000 
BLOS ~=s«saMS :BR IF MORE TO FILL 
MOVB  DVACTV,TEMP1 = :STORE TEMPORALLY 
2$: ROR TEMP1 “BRING OUT A BIT 
BCC 38 ‘BR IF ALL DONE 
CLR 0 CPU PRIO 


;ZER 
MOV PBITO*BIT7+B1T6, ache) 
CLR RO ATTEMPT TO FORCE AN INTERUPT 





OF DEV FOUND? 
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176777 000000 3$: 
000000 


000024 
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007212 
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GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


L 3 


RO 


#300, 2(R2) 
#*C<BIT9>,a(R2) 
a(R2) 


#24,R2 

2$ 

(SP) ,2(R2) 
#7,2(R2) 
(SP) +, (SP)+ 

#38, (SP) 


PC 


; STALL 
FOR TIME TO INTERUPT 
NO INTERUPT ASSUME 300 AND FIX DV11 LATER 


;POP SOFTWARE POINTER 


sKEEP GOING 
:GET VECTOR ADDRESS 
:CLEAR JUNK 


;POP IOT JUNK OFF STACK 
SET FOR RETURN 


sALL DONE WITH ‘AUTO SIZING’ 


SEQ 0037 


17-JUN-80 15:00 
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4 
o 


D 

1213 

1214 peeneteeereeeereceeereere TEST 1 teenteeeereerereneteeeeereares 
1215 [*TEST OF TRANSMITTER CONTROL BYTES. 

1216 s*TEST OF "NEXT MODE’ FOR TRANSMITTER. 

1217 ‘*THIS TEST 1S DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 
4 pI MReeeeeeeeererereeeeeeereeeteeeeKeenAeeeKteneneneAaeteneKeeeeses 
1219 

1220 ; TEST 1 

1222 007256 012737 000001 001226 TsT1: MoV #1, TSTNO 

1223 007264 012737 007664 01216 MOV #TST2,NEXT 

1224 007272 012700 000000 MOV #0.,R :PLACE LINE NUMBER INTO RO 

1225 007276 013737 422 001236 MOV L00.03,STAT sLOAD LINE CARD STATUS INTO STAT 
1226 007304 100402 BMI 100$ ‘BR IF LINE CARD NOT TO BE TESTED 
ee? 7306 004737 007374 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 1 
1228 007312 012700 000004 100$: MOV #4. ,RO :PLACE LINE NUMBER INTO R 

1229 007316 013737 001424 001236 MOV L04.07,STAT ‘LOAD LINE CARD STATUS INTO STAT 
1230 007324 100402 BMI 101$ :BR IF LINE CARD NOT TO BE TESTED 
1231 07326 004737 007374 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 2 
1232 007332 012700 000010 101$: MOV #8.,RO sLOAD LINE NUMBER 

1233 007336 013737 001426 001236 MOV L08.11,STAT =LOAD LINE CARD STATUS INTO STAT 
1234 007344 100402 BMI 102$ :BR IF LINE CARD NOT TO BE TESTED 
1235 007346 004737 007374 JSR PC, 1058 :DO THE TEST FOR LINE CARD 3 

1236 007352 012700 060014 102$: MOV #12.,R0 sLOAD LINE NO. 

1237 007356 013737 001430 001236 MOV L12.15,STAT ‘LOAD LINE CARD STATUS 

1238 007364 100402 BM i 103$ ‘BR IF LINE CARD NOT TO BE TESTED 
1239 007366 004737 007374 JSR PC,105$ [DO THE TESTS FOR LINE CARD 4 
1240 007372 104400 103$: SCOPE :SCOPE THIS TEST. 

1241 007374 105$: ‘TEST ENTRANCE. 

1242 007374 012737 007422 001220 MOV #1$,LOCK sSET IF SWO9=1 (LOCK) 

1243 007402 104413 RAMCLR sCLEAR ALL SEC REGISTERS 

1244 007404 005003 CLR R3 [SET IMAGE EXPECTED MODE=0 

1245 007406 005001 CLR R1 =SET IMAGE "NEXT MODE''=0 

1246 007410 112737 000025 025472 MOVB #25,TXBAP >SET TX DATA CHAR 

1247 007416 012702 000004 MOV #4,R :SET FOR 4 LINE GROUP 

1248 007422 110137 026517 1$: MOVB = R11, TXTAB+25 ‘LOAD CONTROL BYTE (MODE) 

1249 007426 010077 171740 MOV RO, aDVSRS :LOAD LINE NUMBER 

1250 007432 004537 025032 PERFORM ,SETREG ; 

1251 007436 000 -BYTE 600,001 [TX PRINCIPLE BA, PRINCIPLE BC 
1252 007440 025472 TXBAP ; 

1253 007442 177777 -1 ; 

1254 007444 004537 025032 PERFORM ,SETREG ; 

1255 007450 013 010 -BYTE 613,010 [LINE STATE, CNTRL TABLE 

1256 007452 000004 BIT2 > TXGO 

1257 007454 026472 TXTAB ; 

1258 007456 004537 025032 PERFORM ,SETREG ; 

1259 007462 014 014 -BYTE 614,014 [TX MODE REG 

1260 007464 000000 0 MAKE 

1261 007466 000000 0 :1T=0 

ieee 007470 tte 004000 001236 BIT #ASYNC,STAT :#1S THIS ASYNC LINE CARD? 

1263 007476 001407 BEQ 60$ :#BR IF NO. 

1264 7500 004537 025076 PERFORM ,LOAD.MODE :# 

1265 007504 015000 <BIT12¢BI1T11>+B1T9 7#8 BITS/PER/CHAR 

1266 007506 004537 025076 PERFORM ,LOAD.MODE 7) 

1267 007512 072000 <BIT14+BiT13+BIT12>¢B1T10 

1268 :#9600 BAUD. 
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1269 007514 000403 QR 61% 
1270 007516 004537 025076 60$: 5h es LOAD . MODE oe 
1271 007522 014000 BIT12+B1T11 ODE 
1st 007524 012737 000340 177776 61$: MOV 1340, PS crock OUT INTERUPTS 
1273 007532 012777 007574 171616 MOV #3$ @DVIVEC :SET TRANS VECTOR 
1274 007540 012777 000340 171612 MOV #346,a LOAD PRIO. 
1275 007546 052777 020001 171606 BIS Pett seB1T0" aDvscR SET STATUS IE AND UCPU GO. 
1276 007554 005005 CLR R5 WAIT 
1277 007556 104414 2$: DELAY sSTALL FOR TIME 
1278 560 005037 177776 CLR PS ; ALLOW ITERUPTS (NSR ENTRY) 
1279 007564 005205 INC R5 sENTRY 
1280 007566 001373 BNE 2$ 
1281 007570 104000 HLT ‘NO SILO ENTRY (DVSCR 15 NOT=1) 
1282 007572 024646 CMP -(SP) ,-(SP) sFAKE INTERUPT BECAUSE NO REAL ONE HAPPENED. 
1283 007574 042777 020000 171560 38: BIC #B1T1$,aDVSCR  :CLR IE 
1284 7602 005037 177776 CLR PS 3; ZERO is 
1285 007 022626 CMP (SP)+,(SP)+ sFAKE AN RTI 
1286 007610 112777 000014 171556 MOVB #14, aDVSRSH sSEL TX NODE REGISTER 
1287 007616 017704 171554 MOV @DVSRA,R4S ;READ MODE REG. 
1288 007622 010305 MOV R3,R5 sSET EXPECTED 
1289 007624 020504 CMP RS,R4 [WAS "NEXT MODE’ LOADED CORRECTLY? 
1290 007626 001401 BEQ 4$ ‘BR IF YES 
1291 007630 104003 HLT 3 3TX MODE REGISTER WRONG 
1292 007632 104412 4$: MSTCLR s INIT DV11 
1293 0076 104401 SCOP1 [LOCK ON MODE, LOCK ON LINE? 
1294 007636 005203 INC R3 [UPDATE EXPECTED MODE 
1295 007640 062701 000040 ADD #BIT5,R1 ; UPDATE Se BYTE IMAGE 
1296 007644 105701 TSTB R1 7ALL pOmE?? 
1297 007646 001 BEQ % R 
1298 007650 005001 CLR R1 ERO. EXPECTE MODE 
1299 007652 005003 CLR R3 : ZERO CNTRL BYTE MODE 
1300 007654 005200 INC RO [UPDATE LINE NO POINTER 
1301 007656 005302 DEC R2 74 LINES DONE 
1302 007660 001260 BNE 1$ :BR IF YES 
1 007662 000207 RTS PC sEXIT FOR NEXT GROUP OF LINES 
1305 
1306 pteeearerererereerererert TEST 2 RHR RERARAAAAAReeReeeeeene 
1307. z*TEST OF TRANSMITTER IDLE FUNCTIONS. 
1308 :*TEST THAT THE TRANSMITTER WELL IDLE 
1309 >*SYNC (IDLE) CHARS WHEN BIT 0 O 
1310 [*DLE/PROTOCOL REGISTER 1S CLEARED 
1311 porns TEST 1S DONE FOR SYNC LINE CARDS ONLY. 
1312 PeReeeerereeereerererereeeeereteneeteteneteeeeteneeeeeneeereeeeee 
1313 
iste 3; TEST 2 
1316 007664 012737 000002 001226 fsT2: Mov #2, TSTNO 
1317 007672 012737 010422 001216 MOV @TST3, NEXT 
1318 007700 012100 000000 mov = #0. , RO :PLACE LINE NUMBER INTO RO 
1319 007704 013737 001406 001244 MOV MASK A, MASK [PLACE "MASK''FOR CHARS INTO MASKX 
1320 007712 013737 001422 001236 MOV L00.03.STAT ;LOAD LINE CARD STATUS INTO STAT 
1321 0077 1004 BE! 1008 7BR IF LINE CARD NOT TO BE TESTED 
1356 007722 00467 010032 JSR Pc,105$ 7G0 DO THE TEST FOR LINE CARD 1 | 
1323 007726 He fas! 000004 1008:  0v #4. RO PLACE LINE NUMBER INTO R 
1324 0077 01!7 001410 001244 "Ov MASK .B.SASKK GET MASK 
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VOD .P11 JUN- DV11 DEVICE DIAGNOSTICS. SEQ 0040 
S$ 007740 013737 001424 001236 MOV L04.07,STAT :LOAD LINE CARD STATUS INTO STAT 
6 007746 100408 BMI 1018 :BR IF LINE CARD NOT TO BE TESTED 
7 007750 0047 010032 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 2 
8 007754 012700 0000? 101$: MOV #8. ,R [LOAD LINE NUMBER 

007760 0137 001412 polsee OV MASK .C MASK :GET MASK 
007766 13737 001426 001236 MOV L08.11,STAT [LOAD LINE CARD STATUS INTO STAT 
1 007774 10402 BMI 1028 ‘BR IF LINE CARD NOT TO BE TESTED 
32 007776 004737 010032 JSR PC, 105$ [DO THE TEST FOR LINE CARD 3 
33 010002 012700 000014 102$: MOV wid. RO [LOAD LINE NO. 
34 010006 013737 001414 001244 MOV MASK .D,MASKX GET MASK 
3S 010016 013737 001430 001236 MOV L12.15,STAT ‘LOAD LINE CARD STATUS 
3% 010022 100402 BMI 103$ :BR IF LINE CARD NOT TO BE TESTED 
37 910024 004737 010032 JSR PC,105$ [DO THE TESTS FOR LINE CARD 4 
010030 104400 103$: SCOPE :SCOPE THIS TEST. 
010082 105$: [TEST ENTRANCE. 
0100 032737 004000 001236 BIT #@ASYNC STAT 7@1S THIS AN ASYNC LINE CARD? 
010040 001401 BEG +h :WBR IF NOT ASYNC . 
010042 900207 RTS PC SWEXIT TEST. (ASYNC LINE CARD NOT TESTED) 
010064 012737 010116 601220 MOV #3$,LOCK [SET FOR RETURN IF SwO9=1 
010052 104413 RAMCLR SCLEAR ALL SEC REGISTERS 
§ 010054 012705 026472 MOV #TXTABLRS > CLEAR 
010060 012704 033072 MOV @RXTAB_RG RECEIVER 
7 010064 005001 CLR RI > AND 
8 010066 005025 1$: CLR (RS) : TRANSMITTER 
9 010070 005024 CLR (R4)+ ; CONTROL 
010072 105201 INCB ORT : TABLES 
010074 100374 BPL 1$ : 
010076 0127 7 000001 02547 MOV #1, TXBAP “LOAD TX 
10106 112737 000015 02547 move #15, TXBAP+1 DTA 
010112 012702 MOV #4 ,R2 [SET FOR 4 LINE GROUP 
010116 010077 171250 38: MOV RO. aDVSRS [LOAD LINE NUMBER 
010122 005037 032472 CLR RXBA CLEAR 
S10126 005037 032474 CLR RXBAr2 SRECEIVER 
010132 005037 032476 CLR RXRA+G : BUFFER 
9 010136 032737 004000 001236 BIT #ASYNC STAT :@1S THIS AN ASYNC LINE CARD? 
010144 001406 BEQ 80$ :#BR IF NOT ASYNC. 
010146 004537 025032 PERFORM ,SETREG :WADJUST FOR ASYNC LINE CARD 
010152 000 001 .BYTE 600,001 :MREGISTERS 
010154 025472 TXBAP [#LOAD FOR ASYNC 
010156 177776 - :#LOAD FOR ASYNC 
010160 000605 BR 81$ S@CONTINUE TEST 
010162 004537 025032 80$: PERFORM ,SETREG ; 
010166 000 001 .BYTE 600,001 [TX PRINCIPLE BA, PRINCIPLE BC 
010170 025470 SYNC ; 
9 010172 177774 - ; 
0 010176 004537 025032 81$: PERFORM ,SETREG ; 
1 010200 004 005 -BYTE 604,005 "RX BA, RX BC 
é 91020 032472 RXBA : 
10204 177772 -6 : 
é 010206 004537 025032 PERFORM ,SETREG ; 
5 01021 010 011 .Byte 610,011 :TX TABLE, RXTABLE 
8 910216 026472 TXTAB ; 
010216 0 3072 RXTAB ; 
8 010220 004537 025032 PERFORM ,SETREG ; 
010224 013 Oi2 BYTE 613,012 [LINE STATE, LINE PROTOCOL 
010226 BIT2 >TX GOOD 
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010 600000 0 ;DEFAULT=IDLE SYNC 
1388 B03 032737 004000 001236 BIT #ASYNC,STAT ais THIS ASYNC LINE CARD? 
1383 010240 Ber eas BEQ ;#BR IF NO. 
1384 030242 004537 025076 Sch , LOAD. MODE [#LOAD PARAMETERS. 
1385 010246 020000 BIT ;#RECEIVER ENABLE 
1386 010250 004537 025076 PERFORM ,LOAD.MODE 
1387 010254 015000 coinizepittt>+Bity #8 BITS/PER/CHAR 
1388 010256 004537 025076 PERFORM 
1389 010262 072000 cB1TV4eBit 1 3eB1T1 22481110 
1390 #9600 BAUD. 
1391 010264 000405 BR 4% 
1392 010266 004537 025076 €9$: PERFORM ,LOAD.MODE ;LOAD 
1393 010272 034000 BIT13+B1IT12+B1T11 ;MODE AND RX ENABLE 
1394 010274 004537 024620 PERFORM ,SETSYNC 3GET SYNC CHARS AND ADJUST FOR ONE OR TWO. 
1395 610300 005277 171056 4$: INC aDVSCR ;SET MICRO CPU GO 
1396 010304 105777 171052 TSTB aDVSCR ;WAIT FOR 
1397 0310 100375 BPL 274 :DVSCRO7=1 
1398 010312 005004 CLR R4 : 
1399 010314 012705 000001 MOV #1,R5 ;SET EXPECTED 
1400 010320 113704 032472 MOVB RXBA,R4 ;READ 1ST CHAR 
1401 FERRARA RARARAATAAAAA ETEK RAR RAEReKeRAK KAKA TATeTS 
1402 010324 004737 023304 JSR PC, PAREN ;CHECK FOR PARITY ENABLED (REV. DO) 
1403 31ST CHAR S/B = 1! 
1404 REAR ARRERERAEEEAEAEETAAEEEAE AAA RAAAHAEAAARAEAAAEAAAAERAAEE 
1405 010330 112705 000015 5s: MOVB #15, R5 ;SET EXPECTED 
1406 010334 113704 032473 MOVB  RXBA+1,R4 :GET 2ND CHAR 
1407 PRAAAAAAARAKHAHAAAAA AAA A LAKE TAHA AAAAAAAAAAeeAReKeeKeKeKe Tes 
1408 010340 004737 023304 JSR PC, PAREN :CHECK FOR PARITY ENABLED (REV. DO) 
1409 :2ND CHAR S/B = 15 
1410  eeeeeeeeeeeeeeeeteeetereteeteeteeteetneteerteneeneeeneeeeeete 
1411 010344 6$: 
1412 010344 113705 001236 MOVB = STAT, R5 ;SET EXPECTED=SYNC CHAR 
1413 010350 042705 177400 BIC #°C<877>,R5 :CLEAR HIGH BYTE 
1414 seeeeeeeneceeetereereeteetteterteterteeterteneeeertetereeeene 
1415 010354 043705 001244 BIC MASKX,RS ;CLEAR BITS/PER/CHAR MASK (REV. DO) 
1416 FRRAARE RRA AARAAARATAAAAA AREA AREA ARAAARAAAEAAEAAAAKAAA ARRAS 
1417 010360 012703 000004 MOV #4,R3 3SET TO LOOK AT 4 CHARS 
1418 010364 012701 032474 MOV #RXBAt2,R1 ;GET RX DATA POINTER 
1419 010370 112104 7$: MOVB (R1)+,R4 ;GET FOUND DATA 
1420 010372 042704 177400 BIC #°C<377> RG :CLEAN HIGH BYTE 
1421 seeeeeneeeeneeeeeerertereteteetetrenenenenteneereeeeeetentes 
1422 010376 004737 024414 JSR PC ,MRKCK 3GO CHECK DATA (REV. DO) 
1423 ;I1F ERROR, XMITR IDLED WRONG 
1424 eeeeeteteneeerereteteereetereeeeetenreneteeeterereteteteetes 
1425 010402 005303 : DEC R3 74 CHARS CHECKED? 
1426 010404 001371 BNE 7$ “BR IF NO 
1427 010406 104412 MSTCLR INIT dV11 
1428 010410 104401 SCOP1 ;LOCK ON LINE? 
1429 010412 005200 INC RO ;UPDATE LINE POINTER 
010414 005302 DEC R2 34 LINE GROUP DONE? 
010416 001237 BNE 3$ ;BR IF NO 
010420 000207 RTS PC sEXIT FOR NEXT GROUP 


peeeeeeretererereerererer TEST J eeeneeeerererarererenerenerert 


S*TEST OF TRANSMITTER IDLE FUNCTIONS. 
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001244 


MOV L04.07 
101$ 


JSR PC,105$ 
101$: MOV #8. ,R0 
MOV MASK, * T°StAT. 


1439 :*SET IN THE DLE /PROTOCOY REGISTER. 

1440 :*THIS TEST IS DONE FOR SYNC LINE CARDS ONLY. 

1441 PI AAAAAHCHAAHTHTAKEKA HAKKAR KKKKKAAKAKKeKAKKeAKKeeeeeKeeeererertet 
1442 

1465 : TEST 3 

1445 010422 012737 000003 001226 TsT3: MOV #3, TSTNO 

1446 010430 012737 011160 001216 MOV #TST4 NEXT 

1447 010436 012700 000000 MOV #0. RO :PLACE LINE NUMBER INTO RO 

1448 010442 013737 001406 001244 MOV MASK .A,MASKX PLACE “MASK''FOR CHARS INTO MASKX 
1449 010450 013737 001422 001236 MOV £99 ,05. STAT ;LOAD LINE CARD STATUS INTO STAT 
1450 010456 100402 BM! 100$ :BR IF LINE CARD NOT TO BE TESTED 
1451 010460 004737 010570 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 1 
1452 010464 012700 000004 100$: MOV #4. ,RO :PLACE LINE NUMBER INTO RO 

1453 010470 013737 001410 001244 MOV MASK.B,MASKX § :GET MASK 

1454 3737 001424 001236 »STAT ;LOAD LINE CARD STATUS INTO STAT 


7BR IF LINE CARD NOT TO BE TESTED 
GO DO THE TEST FOR LINE CARD 2 
;LOAD LINE NUMBER 

:GET MASK 


D 4 ss SAE Soa 
SEQ 0042 
1437 ssTEST THAT THE TRANSMITTER VILL IDLE 
1438 TeMARK STATE (377) WHEN BITO IS 


1459 010524 737 001426 001236 MOV 08.1 ‘LOAD LINE CARD STATUS INTO STAT 
1460 010532 100402 BMI 102$ ‘BR IF LINE CARD NOT TO BE TESTED 
1461 010534 004737 010570 JSR PC,105$ :D0 THE TEST FOR LINE CARD 3 
1462 010540 012700 000014 102$: MOV #12.,R0 [LOAD LINE NO. 

1463 010544 013737 001414 001244 MOV MASK .0,MASKX 3GET MASK 

1464 010552 013737 001430 001236 MOV L12.15.STAT [LOAD LINE CARD STATUS 

1465 010560 100402 BM] 103$ ‘BR IF LINE CARD NOT TO BE TESTED 
1466 010562 004737 010570 JSR PC,105$ :D0 THE TESTS FOR LINE CARD 4 
1467 010566 104400 103$: SCOPE “SCOPE THIS TEST. 

1468 010570 105$: ‘TEST ENTRANCE. 

1469 010570 032737 004000 001236 BIT #ASYNC,STAT 3#1S THIS AN obey LINE CARD? 
1470 010576 001401 BEQ ~%4 ;#BR IF NOT ASYNC . 

1471 010600 000207 RTS PC :#EXIT TEST. reve LINE CARD NOT TESTED) 
1472 010602 012737 010654 001220 MOV #38, LOCK ‘SET FOR RETURN IF SWO9=1 

1473 010610 104413 RAMCLR sCLEAR ALL SEC REGISTERS 

1474 010612 012705 026472 MOV #TXTAB,RS ; CLEAR 

1475 010616 012704 033072 MOV #RXTAB,R4S *RECEIVER 

1476 010622 005001 CLR R1 3 AND 

1477 010624 005025 1$: CLR (R5)+ : TRANSMITTER 

1478 010626 005024 CLR (RG)+ CONT ROL 

1479 010630 105201 INCB OR TABLES 

1480 010632 100374 BPL 1$ 

1481 010634 012737 000001 025472 MOV #1, TXBAP :LOAD T™ 

1482 010642 112737 000015 025473 MOVB #15, TXBAP+1 TA 

1483 010650 012702 00000 MOV #4 ,R2 SET FOR 4 LINE GROUP 

1484 010654 010077 170512 3$: MOV RO. a@DVSRS [LOAD LINE NUMBER 

1485 010660 005037 032472 CLR RXBA CLEAR 

1486 010664 005037 032474 CLR RXBA+2 :RECEIVER 

1487 010670 005037 032476 CLR RXBACG BUFFER 

1488 010674 032737 004000 001236 BIT #ASYNC, STAT HIS THIS | AN ASYNC LINE CARD? 
1489 010702 001406 BEQ 80$ :WBR IF NOT ASYNC. 

1490 010704 004537 025032 PERFORM ,SETREG * MAD JUST Pie ASYNC LINE CARD 
1491 010710 000 001 -BYTE 600,001 :#REGISTERS 

1492 010712 025472 TXBAP :#LOAD FOR ASYNC 
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SEQ 0043 


-2 :#LOAD FOR ASYNC 
BR 81% “#CONTINUE TEST 
80$: PERFORM ,SETREG : 
-BYTE 600,001 ‘TX PRINCIPLE BA, PRINCIPLE BC 
+ ge 8 
81S: PERFORA SETREG : 
.BYTE 604,005 =RX BA, RX BC 
RXBA : 
PERFORM ,SETREG : 
-BYTE 610,011 [TX TABLE, RXTABLE 
TXTAB : 
XTAB 
PERFORM ,SE ETR ; 
.BYTE 613,0 “LINE STATE, LINE PROTOCOL 
BIT2 :TX GOOD 
BITO ‘IDLE MARK ON BYTE CNT=0 
001236 BIT #ASYNC, STAT <#1S THIS ASYNC LINE CARD? 
BEQ 60$ BR IF 


PERFORM ,LOAD.MODE 
B1T13 


PERFORM ,LOAD.MODE 
TAR a Rigy he 
PERFORM ,LOAD. 


CBT ieeBiT13¢B1112>4B1T1 


BR 4$ 
608: PERFORM ,LOAD.MODE 


N 
;#LOAD PARAMETERS. 
einstein ENABLE 


48 BITS/PER/CHAR 


i 


;#9600 BAUD. 


;LOAD 
;MODE AND RX ENABLE 


BIT13+BIT12+B1111 

PERFORM ,SETSYNC ;GET SYNC CHARS AND ADJUST FOR ONE OR TWO. 
4$: INC aDVSCR ;SET MICRO CPU GO 

TSTB aDVSCR ;WAIT FOR 

BPL 74 ;DVSCRO7=1 

CLR R4 : 

MOV #1,R5 SET EXPECTED 

MOVB RXBA,R4 ;READ 1ST CHAR 


PEAAAAAAACAAAHAAARAAAA AK AAA Ae TAKARA KARAKeKARAKKeKKKKeRA AAAS 


JSR PC PAREN :CHECK FOR PARITY ENABLED (REV. DO) 
°1$T CHAR S/B = 1! 
REAR ARAEREARARAAEREARAAEAAEAARERAAAEAAAERAEARARARARERAARAHRARAAAARAEARARARAAAAE 
S$: MOVB #15,R5 sSET EXPECTED 
MOVB = RXBA+1,R4 >GET 2ND CHAR 
prteaeeeeeeneereeeeeeterreretrrereeeeAeeeeeKeReereeteereneeert 
JSR PC, PAREN :CHECK FOR PARITY ENABLED (REV. DO) 
:2ND CHAR S/B = 15 
peteeeeteteneretereetetertereterenereteeeeeeeeeeeeereneeareneet 
6$: 
MOV 377,R5 :SET EXPECTED=MARK CHAR 
BIC A RS ‘CLEAR HIGH BYTE 
seneceereceeeecececeeeeeeteereeeterteneeeenettereeteteeeerres 
BIC MASKX,RS :CLEAR BITS/PER/CHAR MASK (REV. DO) 
jtanecececcececereceetececececeeteseresecearaneteteseseeteess 
MOV #4,R3 :SET TO LOOK AT 4 CHARS 
MOV #RXBA+2,R1 GET RX DATA POINTER 
7$: MOVB = (R11) +, RG :GET FOUND DATA 


CZDVD-D MACY11 30A(1052) 17-JUN-80 15:00 PAGE 33 

CZDVDD.P11 02-JUN-80 09:32 DV11 DEVICE DIAGNOSTICS. 
1549 011130 042704 177400 BIC #°C<377>,R4 :CLEAN HIGH BYTE 
1550 peReReeeeeeetenereeereeeeeetereerederteeeAteeeteneeeneteeere 
1551 011134 004737 024414 JSR PC ,MRKCK 3G0 CHECK DATA (REV. DO) 
1552 sIF ERROR, XMITR IDLED WRONG 
1553 SRRRRERRARARERAEHEHEHEAE THETA EHTEEHAAAHAAAAEEKEE TREE HTAES 
1854 011140 005303 $: DEC R3 74 CHARS CHECKED? 
1555 011142 001371 BNE 7$ ;BR IF NO 
1556 011144 104412 MSTCLR ; INIT OV11 
1557 011146 104401 SCOP 1 ;LOCK ON LINE? 
1558 011150 005200 INC RO ;UPDATE LINE POINTER 
1559 011152 005302 DEC R2 34 LINE GROUP DONE? 
1560 011154 001237 BNE 3$ ;BR IF NO 
136) 011156 000207 RTS PC sEXIT FOR NEXT GROUP 
1563 
1564 peeeeeeereereeceererecere TEST 4 tenaneerereceeerereererererere 
1565 s*TEST OF RECEIVER CONTROL BYTE OPERATIONS. 
1566 s*TEST OF THE ‘'‘STORE/DISCARD’’ FUNCTIONS. 
1567 s*TEST THAT CHARS: 
1568 3* 25 STORED 
1569 se 23 DISCARDED 
1570 3* 31 STORED 
1571 3* 32 DISCARDED 
1572 s*SINCE TWO CHRS SHOULD BE THROWN AWAY; 
1573 ;*THE TX LINE IS SET TO GO BACK TO A MARK STATE; 
1574 S* THEREFORE THE RX BUFFER S/B: 
1575 7 *RXBA 
1576 it 77,377 
1577 :*THIS TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 
1578 PARRA AAAAAKeee eee eee eee AAA KAR eee Kee Keeeeteeeneteneeereeeererese 
1579 
seey ; Test 4 
1582 011160 012737 000004 001226 TST4: MOV #4,TSTNO 
1583 011166 012737 012116 001216 MOV #TSTS, NEXT 
1584 011174 012700 000000 MOV #0.,R ;PLACE LINE NUMBER INTO RO 
1585 011200 013737 001406 001244 MOV MASK .A,MASKX :PLACE 'MASK''FOR CHARS INTO MASKX 
1586 011206 013737 001422 001236 MOV L00.03,STAT ;LOAD LINE CARD STATUS INTO STAT 
1587 011214 100402 BM! 100$ ;BR IF LINE CARD NOT TO BE TESTED 
1588 011216 004737 011326 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 1 
1589 011222 012700 000004 100$: MOV #4.,R0 PLACE LINE NUMBER INTO RO 
1590 011226 013737 001410 001244 MOV MASK .B,MASKX ;GET MASK 
1591 011234 013737 001424 001236 MOV L04.07,STAT ;LOAD LINE CARD STATUS INTO STAT 
1592 011242 100402 BMI 101$ 7BR IF LINE CARD NOT TO BE TESTED 
1593 011244 004737 011326 JSR PC,105$ 3G0 DO THE TEST FOR LINE CARD 2 
1594 011250 012700 000010 101$: MOV #8. RO ;LOAD LINE NUMBER 
1595 011254 013737 001412 001244 MOV MASK .C ,MASKX 3;GET MASK 
1596 011262 013737 001426 001236 MOV LO8.11,STAT ;LOAD LINE CARD STATUS INTO STAT 
1597 011270 100402 BMI 102$ 7BR IF LINE CARD NOT TO BE TESTED 
1598 011272 004737 011326 JSR PC,105$ 700 THE TEST FOR LINE CARD 3 
1599 011276 012700 000014 102$: MOV #12. ,RO [LOAD LINE NO. 
1600 011302 013737 001414 001244 MOV MASK .D,MASKX ;GET MASK 
1601 011310 013737 001430 001236 MOV L12.15,STAT ;LOAD LINE CARD STATUS 
1602 011316 100402 BMI 103% ;BR IF LINE CARD NOT TO BE TESTED 
1603 011320 004737 011326 JSR PC,105$ 300 THE TESTS FOR LINE CARD 4 
1604 011324 104400 103$: SCOPE ;SCOPE THIS TEST. 
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1605 011326 105$: :TEST ENTRANCE. 
1606 FRRERAAAAHARARAEEHEAEAHAEKEK ETE AAAHEREAAAHARAR RAH AAHKK AHH E ee 
1607 011326 012737 011524 001220 MOV #LINES,LOCK :SET RETURN IF SWO9=1 (REV. DO) 
1608 peteeeeeeeeeeReeeeteeeereeereerereKeeteeeteteteeteereeeerere 
1609 011334 104413 RAMCLR sCLEAR ALL DV11 SEC REGISTERS 
1610 011336 105037 026517 CLRB. ss TXTAB+25 : ZERO 
1611 011342 105037 026515 CLRB ss TXTAB+23 : USED 
1612 011346 105037 026523 CLRB ss TXTAB+31 : CONTROL 
1613 011352 105037 026524 CLRB ss TXTAB+32 : BYTES 
1614 011356 105037 027071 CLRB «TX TAB+377 ‘FOR TRANSMITTER 
1615 011362 012705 025472 MOV #TXBAP,RS LOAD 
1616 011366 012725 MOV (PC) +, (R5)¢ ; TRANSMITTER 
1617 011370 025 023 .BYTE 25,23 DATA 
1618 011372 012715 MOV (PC) +, (RS) ; CHARS 
1619 011374 031 032 .BYTE 31,32 
1620 peeeeeeeeenereneeneetenereereeeceeeeneenenareeseentenenereeees 
1621 011376 013703 001244 MOV MASKX,R3 3GET BITS/CHAR (REV. DO) 
1622 011402 032703 000400 BIT #400,R3 :8 BIT? 
1623 011406 001004 BNE 84$ ‘BR IF YES 
1624 011410 032737 020000 001236 BIT #20000,STAT ‘EVEN PARITY EN? 
1625 011416 001013 BNE 85$ ‘BR IF YES 
1626 011420 112737 000020 033115 84$: MOVB &#BIT4,RXTAB+23 :DSCARD 
1627 peeeeeeeeeeeReeeeKeteeeereetereteeteorakteteetereererereeent 
1628 011426 112737 000020 033124 MOVB #BIT4,RXTAB+32 ;=DSCARD 
1629 011434 105037 033117 CLRB —s- RXTAB+25 :DEFAULT=STORE 
1630 011440 105037 033123 CLRB ss RX TAB+31 : DEFAULT=STORE 
1631 [Oe eeeeeeeeeeeeeeeteneeeeeeteeeeeeeeeneeeeeeeneerteeereeeters 
163% 011444 000425 BR 87$ sSKIP EVEN DATA LOAD (REV.DO) 
Hef 2 LOAD EVEN DATA 
1636 011446 132703 000040 85$: BITB #40,R3 :5 BITS/CHAR? 
1637 011452 001403 BEQ 90$ ‘BR IF NOT 
1638 011454 012701 024114 MOV #FIVTAB,RI1 :BASE = OF 5 BIT DATA TABLE 
1639 011460 000410 BR 86$ -GET OUT 
1640 011462 132703 000100 90$:  BITB  #100,R3 :6 BITS/CHAR? 
1641 011466 001403 BEQ 91$ :BR IF NOT 
1642 011470 012701 024104 MOV #SIXTAB,RI “LOAD ADDR. OF 6 BIT DATA, 
1643 011474 02 BR 86$ [GET OUT 
1644 011476 012701 024074 91$: MOV #SEVTAB,R1 ‘MUST BE 7 BITS/CHAR DATA 
1645 011502 012731 010000 86$: MOV #BIT12,a(R1)*  =:DISCARD 
1646 011506 012731 000020 MOV #BIT4,a(R1)*  =DISCARD 
1647 011512 005031 CLR a(Ri)+¢ * DEFAULT STORE 
1648 011514 005071 000000 CLR ari) sDEFAULT STORE 
649 011520 012702 000004 87$: MOV #4, R2 :SET FOR 4 LINE GROUP 
1650 011524 010077 167642 LINES: MOV RO. aDVSRS [LOAD LINE NO. 
1651 eee Gabe ck, wee Me tee ee 
1652 011530 005037 032472 CLR RXBA AKE SURE 
1653 011534 005037 032474 CLR RXBA+2 ae BUF FER=0 
1654 011540 032737 004000 001236 BIT @ASYNC, STAT ‘#1S THIS AN ASYNC LINE CARD? 
1655 011546 001406 BEQ 80$ :#BR IF NOT ASYN 
1656 011550 004537 025032 PERFORM ,SETREG MAD JUST FOR ASYNC LINE CARD 
1657 011554 000 001 “BYTE 600,001 MREGISTER® 
1658 011556 025472 TXBAP “#LOAD FOR ASYNC 
1659 011560 177774 -4 ‘#LOAD FOR ASYNC 
1660 011562 000405 BR 81$ SWCONTINUE TEST 
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1661 011564 004537 025032 80$: PERFORM .SETREG 
1662 011570 000 001 .BYTE 600,001 ar PRINCIPLE BA, PRINCIPLE BC 
1663 011572 025470 SYNC [SYNC CHA 
1664 011574 177772 =6 :2 SYNC, : DATA=6 
1665 011576 81$: 
1666 011576 032737 004000 001236 BIT #ASYNC, STAT :#1S THIS AN ASYNC LINE CARD? 
1667 011604 001406 BEQ 82$ “#BR IF NOT ASYN 
1668 011606 004537 025032 PERFORM ,SETREG : MAD JUST FOR ASYNC LINE CARD 
1669 011612 004 005 -BYTE 604,005 WREGISTERS 
1670 011614 032472 RXBA s#LOAD FOR ASYNC 
1671 011616 177776 -2 ‘#LOAD FOR ASYNC 
1672 011620 000405 BR 83$ SWCONTINUE TEST 
1673 011622 004537 025032 82$: PERFORM SE TREG : 
1674 011626 004 005 -BYTE 604,005 “RXBA, RXBC 
1675 011630 032472 RXBA : 
1676 011632 177774 : 
1677 011634 537 025032 83S: PERFORR SETREG : 
1678 011640 010 011 .BYTE 610,011 :TX TABLE, RX TABLE 
1679 011642 026472 TXTAB ; 
1680 011644 033072 RXTAB 
1681 011646 004537 025032 PERFORM ,SETREG 
1682 011652 013 012 -BYTE 613,012 [LINE STATE, LINE PROTOCOL 
1683 011654 000004 BIT2 “TX GO 
1684 011656 000001 BITO ‘IDLE MARK ON Bye COUNTS=0 
1685 011660 032737 004000 001236 BIT #ASYNC, STAT SASYNC LINE CAR 
1686 011666 001412 BEQ 60$ ‘BR IF NOT 
1687 011670 004537 025076 PERFORM ,LOAD.MODE ;LOAD PARAMETERS 
1688 011674 020000 BIT13 ;RECEIVER ENABLED 
1689 011676 004537 025076 PERFORM ,LOAD.MODE 
1690 011702 015000 BIT 12epi 11148119 :8 BITS/CHAR 
1691 011704 004537 025076 PERFORM ,LOAD 
1692 011710 072000 Cer TieeBiti SOIT 12>eB1T16 
1693 :9600 BAUD 
1694 011712 000405 BR 2$ “SKIP SYNC SETUP 
1695 011714 004537 025076 60$: PERFORM ,LOAD.MODE = LOAD 
1696 011720 034000 BIT13+B1T12+B1T11 “MODE+RX ENABLE 
1697 011722 004537 024620 PERFORM ,SETSYNC :GET SYNC CHARS AND ADJUST FOR ONE OR TWO. 
1698 011726 005277 167430 2$: INC aDvscr “SET MICRO CPU GO 
1699 011732 005005 CLR R5 DELAY 
1700 011734 105777 167422 3s: TSTB = @DVSCR :FOR 
1701 011740 100404 BMI 4$ “RX INTERRUPT (BIT 7) 
1702 011742 104414 DELAY ‘WASTE TIME 
1703 011744 005205 INC RS [KEEP COUNTING. 
1706 011746 001372 BNE 3$ :BR 
1705 011750 104000 HLT ‘BIT 7 OF DVSCR NOT SET! 
1706 011752 4$: 
1707 011752 112705 000025 MOVB #25, RS :SET EXPECTED 
1708 011756 113704 032472 MOVB = RXBA,R4 “GET FOUND 
1709 seeeeeeeeeneereeeneereeceeeeeeerenetenereeenerereneeeenteess 
1710 011762 032737 040000 001236 BIT #PARBIT,STAT PARITY ENABLED? (REV. DO) 
1711 011770 001402 BEQ 52% ‘IF NO, BRANCH 
1712 011772 043704 001244 BIC MASKK,RG iELSE CLEAR BIT 
1713 011776 120504 528:  (CMPB R5,R4 
1714 yeeceneacuacesueccucseenseeaatancensuensuenenenseenacences 
1715 012000 001401 BEQ 5$ 
1716 012002 104002 HLT 2 °*25* NOT FIRST IN RX BUFFER 
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1717 012004 112705 000031 5$: MOVB #31,R5 NEXT CHAR S/B ‘31° 
1718 012010 113706 032473 MOVB RXBA+1, RG sGET NEXT CHAR 
1719 pteeeeeteerereererieeeerererererereeteretetentereetererereeeee 
1720 012014 032737 040000 001236 BIT #PARBIT,STAT PARITY ENABLED? (REV. DO) 
1721 012022 001402 BEQ 51$ ‘IF NO, BRANCH 
1722 012024 043704 001244 BIC MASKK,R4S +t CLEAR SIT 
1723 012030 120504 51$: CMPB R5,R4 
1724 prapebbssernenesstoosebnainntestssnniiennineiamehenniineal 
1725 012032 001401 BEQ 6$ ; 
1726 012034 104002 HLT 2 :'31° NOT SECOND IN RX BUFFER 
1727 012036 032737 004000 001236 6$: BIT #ASYNC, STAT s#1S _ AN ASYNC LINE CARD? 
1728 012044 001014 BNE &$ :#BR YES. 
44 44 012046 112705 000377 MOVB #377,R5 :MARK= 1S 7y (NEXT CHAR) 
1731 
42 FRRAAAAAAAAHHHHHEAATEAE HAHAHAHAHAHA AREKHEHAAAAAKKARAA AREAS 
1733 012052 043705 001244 BIC MASKX,RS :CLEAR BITS/PER/CHAR MASK. (REV. DO) 
1734 FRARAAAAAAEAEEEEETEEAETEAAAA TAA EH EHEREAAAAAAAAAAKARAAHAREEES 
1735 012056 113704 032474 MOVB RXBA+2,R4 GET FOUND 
1736 [Heeeeeeeeeneenerereerererereceteereenetenereeeeteeeeeeeeeeee 
1737 012062 004737 024414 JSR PC ,MRKCK :GO COMPARE DATA (REV. DO) 
1738  Ceeeeeereeeeeencececereeeeceeqeseaneeganeeareneeeterenenecete 
1739 012066 113704 032475 7$: MOVB RXBA+3,R4 :NEXT CHAR 
1740 FRRARAAHRERARHRERAEHETEHTHEAAEREREHAHERERHKEREREKRAEKERA ARES 
1741 012072 004737 024414 JSR PC, ,MRKCK 3GO COMPARE DATA (REV. DO) 
1742 TORR RBREAERESBESAEARRAEERARAERASERELAEEREE EEE ESE EERE RRR RRR SRDS SD 
1743 012076 104412 as: MSTCLR :INIT DV11 
1744 012100 104401 SCOP 1 sLOCK ON CURRENT LINE? 
1745 012102 005200 INC RO ;UPDATE LINE POINTER 
1746 012104 005302 DEC R2 34 LINES DONE? 
1747 Pe MeeeteKeeeeeeteeeeeeereeeeeereteKeeeeeeateneeeeeeeteeKenees 
1748 012106 001402 BEQ 55$ sBR IF TRUE (REV. DO) 
1749 012110 000137 011524 JMP LINES 3NO, GO DO NEXT 
1750 012114 000207 55$: RTS PC sEXIT FOR NEXT GROUP 
1751 peteteekeeeekeeeteeetereeereterereneKeeeeeAKeReeeKeneReaKanees 
1752 
1753 
1754 pteeeneeeeerererererereee TEST 5 setenerecenanererenrenrecerete 
1755 SeTEST OF RECEIVER CONTROL BYTE OPERATIONS. 
1756 s*TEST OF THE “INCLUDE IN BCC YES/NO FUNCTION’ 
1757 s*TEST THAT THE “a I "031'' IS INCLUDED 
1758 3*IN THE BCC WHEN A 
1759 S*LRCB NOTE: ONLY LRC8 WILL TEST FOR < 8 BITS/CHAR (REV. DO 
1760 7*CRC16 
1761 s*CRC.CCITT 
1762 s*THE RECEIVER BCC STARTS AT 0 AND CALCULATES 
1763 s*ONLY ONE CHAR (31) 
1764 s*THIS TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 
1765 PRAAAHAKAAe Kee eee etek eeteeekekeRetenenetteeereteeeteetenerererene 
1766 
4424 ; TEST 5 
1769 012116 012737 000005 001226 ‘TsT5: MOV #5, TSTNO 
1770 012124 012737 013032 001216 MOV @TST6,NEXT 
1771 012132 012700 000000 MOV #0.,R ;PLACE LINE NUMBER INTO RO 
1772 012136 013737 001406 001244 MOV MASK .A,MASKX *PLACE "MASK''FOR CHARS INTO MASKX 
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1773 012144 013737 001422 001236 MoV L00.03,STAT :LOAD LINE CARD STATUS INTO STAT 
1774 012152 10040 BM! 100$ R IF LINE CARD NOT TO BE TESTED 
1775 012154 004737 012264 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 1 
1776 012160 012700 000004 100$: MOV #4. RO ‘PLACE LINE NUMBER INTO RO 

1777 012164 013737 001410 001244 MOV MASK. B, STAT sGET MASK 

1778 012172 013737 001424 001236 MOV 104.07. ‘LOAD LINE CARD STATUS INTO STAT 
1779 012200 100402 BMI 101$ ‘BR IF LINE CARD NOT TO BE TESTED 
1780 012202 004737 012264 JSR PC, 105$ GO DO THE TEST FOR LINE CARD 2 
1781 012206 012700 000010 101$: MOV #8. ,RO : LOAD LINE NUMBER 

1782 012212 013737 001412 001244 MOV MASK .C, MASKX MASK 

1783 012220 013737 001426 001236 MOV ee 11,STAT SoA LINE CARD STATUS INTO STAT 
1784 012226 100402 BM! 102$ ;BR IF LINE CARD NOT TO BE TESTED 
1785 012230 004737 012264 JSR PC,105$ :D0 THE TEST FOR LINE CARD 3 

1786 012234 012700 000014 102$: MOV #12. ,R0 [LOAD LINE NO. 

1787 012240 013737 001414 001244 MOV MASK .D,MASKX 3;GET MASK 

1788 012246 013737 001430 001236 MOV L12.15,STAT :LOAD LINE CARD STATUS 

1789 012254 100402 BMI 103$ ‘BR IF LINE CARD NOT TO BE TESTED 
1790 012256 004737 012264 JSR PC,105$ [DO THE TESTS FOR LINE CARD 4 
1791 012262 104400 103$: SCOPE ‘SCOPE THIS TEST. 

1792 012264 1058: :TEST ENTRANCE. 

1793 012264 012737 012300 001220 MOV #1$,LOCK [SET FOR "LOCK ON LINE". 

1794 012272 104413 RAMCLR sCLEAR ALL SEC REGISTERS 

1795 012274 012702 000004 MOV #4 ,R2 :4 LINE GROUP 

1796  eeeeeeeeeeeeeeeteeterteeeeeeeteeeeeeeeeeteteetereereneeeeete 
1797 012300 is: 

1798 012300 004737 023734 LOADIT: JSR PC ,MODDAT 3GO CALCULATE CNTRL BYTE OFFSETS (REV. DO) 
1799 012304 105037 026523 CLRB 2s TXTAB+31 “CLEAR CNTRL BYTE (TX) 

1800 012310 112764 000010 033072 MOVB #BIT3,RXTAB(R4) SET a Th = RX CNTRL BYTE 
1801 012316 112737 000031 025472 MOVB  4#31,TXBAP “SET TX DATA CHA 

1802 012324 104412 MSTCLR SINIT DV11 

1803 leeeeeeeereeeeeeeeeeteeeteeeeeetertentneteereneneteeeeenerete 
1804 012326 010077 167040 MOV RO, aDVSRS sLOAD LINE # 

1805 012332 004737 025136 JSR PC,DV110N ; GOSUB DV110N 

1806 012336 004537 025032 PERFORM ,SETREG 

1807 012342 007 .BYTE 607,012 “RXBCC.LINE PROTOCOL 

1808 012344 000000 0 “START BCC AT 0 

1809 012346 000000 0 ‘POLYNOMIAL SELECT 

1810 012350 005277 167006 INC @DVSCR :SET MICRO CPU GO 

1811 012354 105777 167002 44$: TSTB aDVSCR WAIT FO (REV. DO) 
1812 012360 100375 BPL 44$ BIT 7 OF DVSCR=1 (REV .D0) 
1813 012362 112777 000007 167004 MOVB #7, aDVSRSH *SEL RX BCC REG 

1814 012370 017704 167002 MOV ADVSRA,R4 :READ BCC 

1815 012374 005037 025030 CLR CALBCC “SET SOFTWARE BCC=0 

1816 012400 012737 000200 025024 MOV #LRCB,XPOLY ;SET SOFTWARE POLYNOMIAL 

1817 pe eaeeekeeeeeeeteeeeeertrerererereeeeeKeteneeeteteeeeeeeeerent 
1818 012406 012737 000010 001246 MOV #10, TEMP1 ;LOAD # OF SHIFTS (REV. DG) 
1819 012414 012737 000000 001252 MOV #0, TEMP3 iGET PREVIOUS BCC 

1820 012422 010046 MOV RO.-(SP) SAVE RO 

1821 012424 010146 MOV R1.-(SP) SAVE RI 

1822 012426 010246 MOV R2,-(SP) [SAVE R2 

1823 012430 005037 025026 31$: CLR BCCFBK 

1824 012434 013700 001252 MOV TEMP3,RO 

1825 012440 006037 001250 ROR 

1826 012444 005500 ADC RO 

1827 012446 032700 000001 BIT #B1T0,RO 

1828 012452 001402 BEQ 32$ 





CZDVD=D MACY11 30A(1052) 17-JUN-80 15:00 PAGE 38 
CZDVDD.P11 02-JUN-80 09:32 DV11 DEVICE DIAGNOSTICS. 


1829 012454 005137 025026 COM BCCFBK 

1830 012460 013700 025024 32$: MOV XPOLY, RO 

1831 012464 005100 COM 

1832 012466 040037 025026 BIC RO, BCCFBK 

1833 012472 000241 CLC 

1834 012474 006037 001252 ROR TEMP3 

1835 012500 013700 025026 MOV BCCFBK,RO 

1836 012504 013701 001252 MOV TEMP3,R1 

1837 012510 010102 MOV R1,R2 

1828 073512 040100 BIC R1,RO 

1839 012514 043702 025026 BIC BCCFBK,R2 

1840012520 050200 BIS R2,RO 

1841 O1¢522 047737 025024 001252 BIC XPOLY, TEMP3 

1842 012530. 050037 001252 BIS RO, TEMPS 

1843 012534 005337 01246 DEC TEMP 

1844 012540 001333 BNE 31$ 

1845 012542 013737 001252 025030 MOV TEMP3, CALBCC 

1846 012550 012602 MOV (SP)+,R2 :RESTORE R2 

1847 012552 012601 MOV (SP)+.R1 “RESTORE R1 

1848 012554 012600 MOV (SP)+,RO sRESTORE RO 

1849 FRARARAREARERERAREAE EAA AAAAEA AAA AAAERAAAAAAEERERHHARRE KATE 
1850 012556 013705 025030 MOV CALBCC,RS :GET SOFTWARE BCC 

1851 012562 020504 CMP R5S,R4 3; SOF T=HARD? 

1852 012564 001401 BEQ +4 : 

1853 012566 104004 HLT i “RECEIVER BCC INCORRECT! 
1854 012570 032737 000002 001252 BIT #B1T1, TEMP3 “LESS THAN 8 BITS/CHAR? (REV. DO) 
1855 012576 001506 BEQ 62$ ‘YES,MUST SKIP CRC16 & CCITT (REV. DO) 
1856 org 10441 64$:  MSTCLR ‘INIT DV11 

1857 012602 010077 166564 MOV RO, @DVSRS [LOAD LINE NO. 

1858 012606 004737 025136 JSR PC.DV110N :GOSUB DV110N 

1859 012612 004537 025032 PERFORM ,SETREG ; 

1860 012616 007 012 .BYTE 607,012 [RXBCC, LINE PROTOCOL 
1861 012620 000000 0 :START BCC AT 0. 

1862 012622 000010 BIT3 :POLONOMINAL SELECT 

1863 012624 005277 166532 INC aDVSCR “SET MICRO CPU GO 

1864 012630 105777 166526 65$: TSTB  aDVSCR WAIT FOR 

1865 012634 100375 BPL 65$ ‘BIT 7 OF DVSCR=1 

1866 012636 112777 000007 166530 MOVB #7, aDVSRSH ?SEL RX BCC REG 

1867 012644 017704 166526 MOV @DVSRA,R4 “READ BCC 

1868 012650 005037 025030 CLR CALBCC “SET SOFTWARE BCC=0 
1869 012654 012737 120001 025024 MOV #CRC16,XPOLY § :SET SOFTWARE POLONOMINAL 
1870 012662 004537 024652 JSR RS, SIMBCC [GO GET SOFTWARE BCC 
1871 012 000010 8. SHIFTS 

1872 012670 000031 3j ‘DATA 

1873 012672 000000 0 :PREVIOUS BCC 

1874 012674 013705 025030 MOV CALBCC,R5 ‘GET SOFTWARE BCC 

1875 012700 020504 CMP RS.RG : SOF T=HARD? 

1876 012702 001401 BEQ +4 : 

1877 012704 104004 HLT nA “RECEIVER BCC INCORRECT! 
1878 012706 104412 66$:  -MSTCLR [INIT DV11 

1879 012710 010077 166456 MOV RO, @DVSRS [LOAD LINE NO. 

1880 012714 004737 025136 JSR PC DV110N :GOSUB DV110N 

1881 012720 004537 025032 PERFORM ,SETREG : 

1882 012724 007 012 .BYTE 607,012 *RXBCC, LINE PROTOCOL 
1883 012726 000000 0 >START BCC AT 0. 

1884 012730 000030 BIT4+BIT3 :POLONOMINAL SELECT 
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005277 166424 INC aDVSCR :SET MICRO CPU GO 
105777 166420 TSTB = @DVSCR i WAL 
100375 BPL 67$ :BIT 7’ OF DVSCR=1 
112777 000007 166422 MOVB  4#7,a@DVSRSH “SEL RX BCC REG 
017704 166420 MOV @DVSRA,R4 “READ BCC 
005037 02503 CLR CALBCC “SET SOFTWARE BCC=0 
012737 102010 025024 MOV #CRC. cCLIT, XPOLY’ :SET SOF TWARE POLONOMINAL 
004537 024652 JSR RS, SIMBCC :60 Ger SOFTWARE BCC 
000010 8. SHIFTS 
000031 3j DATA 
000000 0 :PREVIOUS BCC 
013705 025030 MOV CALBCC,RS GET SOFTWARE BCC 
020504 CMP R5,RG : SOF T=HARD? 
001401 BEQ +h : 
104004 HLT i “RECEIVER BCC INCORRECT! 
104401 SCOP1 “LOCK ON SELECTED LINE? 
005200 INC RO ‘UPDATE LINE NO. POINTER 
005302 DEC R2 TALL LINES DONE? 
001402 BEQ 36$ “BR IF YES (REV. DO) 
000137 012300 JMP LOADIT "DO NEXT LINE (REV. DO) 
000207 RTS PC “EXIT FOR NEXT GROUP 
peeeeeeeeceeereereeeeeeen TEST 6 tereanerereceenerenrerereeeees 
Se TEST OF RECEIVER CONTROL BYTE OPERATIONS. 
‘eTEST OF THE ‘NEXT MODE'’ FUNCTION 
‘eTEST THAT THE NEXT MODE REGISTER (015) 
[*CAN BE LOADED FROM THE CONTROL BYTES. 
is THIS TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 
PRRAARAHHHAHREKTEAAAAREKHEHAAAKAAAAAREKAAAKAKAREAHARATARARAeeAeAeAReRee 
012737 000006 001226 MOV #6, TSTNO 
012737 013346 001216 MOV #1817 NEXT 
012700 000000 MOV #0.,R ;PLACE LINE NUMBER INTO RO 
013737 001406 001244 MOV MASK .A,MASKX PLACE "MASK''FOR CHARS INTO MASKX 
013737 001422 001236 MOV L00.03,STAT “LOAD LINE CARD STATUS INTO STAT 
100402 BMI 1008 ‘BR IF LINE CARD NOT TO BE TESTED 
004737 013200 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 1 
012700 04 MOV #4. RO SPLACE LINE NUMBER INTO RO 
013737 001410 001244 MOV MASK.B,MASKX T MASK 
013737 001424 001236 MOV L04 30". STAT [LOAD LINE CARD STATUS INTO STAT 
100402 BMI 1018 ‘BR IF LINE CARD NOT TO BE TESTED 
004737 013200 JSR PC, 1058 GO DO THE TEST FOR LINE CARD 2 
012700 000010 MOV #8. ,RO [LOAD LINE NUMBER 
013737 001412 001244 MOV ASK. C, MASK [GET MASK 
013737 001426 001236 MOV L081 STAT [LOAD LINE CARD STATUS INTO STAT 
100402 BM! te ‘BR IF LINE CARD NOT TO BE TESTED 
004737 013200 JSR PC, 105$ [D0 THE TEST FOR LINE CARD 3 
01 700 14 MOV #12. ,R0 ‘LOAD LINE NO. 
013737 001414 001244 MOV MASK.D,MASKX § :GET MASK 
013737 001430 001236 MOV L12.15.STAT [LOAD LINE CARD STATUS 
100402 BMI 1038 ‘BR IF LINE CARD NOT 10. BE TESTED 
004737 013200 JSR PC,105$ “DO THE TESTS FOR LINE C 
104400 SCOPE “SCOPE THIS TEST. 


SEQ a 
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1941 013200 105$: Test ENTRANCE. 
1942 013200 012737 013236 001220 MOV #1$,LOCK :SET IF SwO9=1 
1943 013206 104413 RAMCLR :CLEAR ALL SEC REGISTERS 
1944 013210 005003 CLR R3 ‘SET EXPECT RESULTS OF MODE REGISTER 
1945 013212 005001 CLR R1 :SET CNTRL BYTE MODE 
1946 013214 012702 000004 MOV #4 ,R2 :SET FOR4 LINE GROUP 
1947 sReeeeeeeeeereneereereeereereneeereneneenneteneeeerenereenete 
1948 013220 004737 023734 JSR PC ,MODDAT 60 CALCULATE CNTRL BYTE OFFSETS (REV. DO) 
1949 013226 012737 000031 025472 MOV #31, TXBAP [LOAD TX DATA CHA 
1950 013232 105037 026523 CLRB TKTAB+31 : ZERO TX CNTRL BYTE 
1951 013236 110164 033072 1$: MOVB R1,RXTABCR4) LOAD RX CNTRL BYTE (WITH MODE) 
1952 PeRAeeeeeeeeeeeeeeteeeeeeeeeeeereeeeeKeKeKeeeeKKeteeteeeeett 
1953 013242 004737 025136 JSR PC,0V110N ;GO0 SETUP ROUTINE THINGS (BA,BC,LS,LP) 
1954 013246 004537 025032 PERFORM ,SETREG ; ZERO 
1955 013252 015 015 BYTE 615,015 ;RECEIVER 
1956 013254 000000 0 ;MODE 
1957 013256 000000 0 ;REGISTER 
1958 013260 005277 166076 INC aDVSCR 7 SET gy CPU GO 
1959 013264 105777 166072 TSTB aDVSCR WAIT Aon, 
1960 013270 100375 BPL 74 ;DVSCRO7= 
1961 013272 112777 000015 166074 MOVB #15,aDVSRSH SEL PX MODE REGISTER 
1962 013300 017704 166072 MOV @DVSRA,R4 READ MODE REGISTER 
1963 013304 010305 MOV R3,R5 :SET EXPECTED MODE 
1964 013306 020504 CMP R5,R4 : 
1965 013310 001401 BEQ 3$ 
1966 013312 104002 HLT 2 TRX MODE REGISTER WRONG 
1967 013314 104412 3$: MSTCLR ;INIT Dv11 
1968 OI sai8 005203 INC R3 UPDATE EXPECTED MODE 
1969 013320 062701 000040 ADD #B1T5,R1 [UPDATE LOADED (NEXT) MODE 
1970 013324 105701 TSTB R1 [ALL DONE? 
1971 013526 001743 BEQ 1$ :BR I 
1972 013330 005001 CLR R1 ;ZERO L 
1973 013332 003 CLR R3 ZERO EXPECTED 
1974 013334 104401 SCOP1 ;LOCK ON SELECTED. LINE? 
1975 013336 00 INC RO ore LINE POINTER 
1976 013340 005302 DEC R2 4 LINE GROUP DONE? 
1977 013342 001335 BNE 1$ BR IF NO 
oe 013344 000207 RTS PC sEXIT FOR NEXT GROUP OF LINES 
19 
Hb «1 peeeeereeeeerererrererere TEST 7 eeeeeeeeanererrerereeeeeterert 
1982 s*TEST OF TRANSMITTER CONTROL pe OPERATIONS. 
1983 SeTEST OF THE ‘"SEND DLE NEXT'’ F INCTION 
1984 T*THE “TRANSMITTER DLE REGISTER’ IS LOADED 
1985 p*WITH CHAR ‘025''. THE RECEIVER IS SET TO RECEIVE 
1986 : *ONE CHAR (THE DLE) SO RX BA $/B=25 
1987 js THE TRANSMITTER DATA CHAR IS ‘'031"'. 
1988 Pyrrrewroverrrerrererrreerrrrrrrrrrrriitit TTT ititiii titi i iii titi ii 
1989 
oot s Vest 7 
1992 013346 012737 000007 001226 IST7: MOV #7, TSTNO 
1993 013354 012737 013670 001216 MOV #TST10,NEXT 
1994 013362 01708 000000 MOV #0. ,R0 sPLACE LINE NUMBER INTO RO 
1995 013366 013737 001406 001244 MOV MASK .A,MASKX PLACE “MASK''FOR CHARS INTO MASKX 
1996 013374 013737 001422 001236 MOV L00.03,STAT ;LOAD LINE CARD STATUS INTO STAT 
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1997 a re 10040 BMI 1008 ;BR IF LINE CARD NOT TO BE + a 
1998 013404 004737 013514 JSR PC,105$ $60 DO THE TEST FOR LINE CARD 1 
1999 Bi geie 012700 000004 100$: MOV #4. ,R0 :PLACE | LINE NUMBER INTO RO 
2000 013414 01 ei 001410 001244 MOV MASK .B,MASKX T MASK 
2001 Ot ees 013737 001424 001236 MOV ate wah STAT LOAD LINE CARD STATUS INTO STAT 
2002 0134 100402 BM! 101$ ‘BR IF LINE CARD NOT TO BE TESTED 
2003 013432 004737 013514 JSR PC,105$ $60 DO THE TEST FOR LINE CARD 2 
2004 013436 By gpey 000010 101$: MOV #8. ,RO LOAD ony NUMBER 
2005 013442 013737 001412 001244 MOV MASK .C,MASKX :GET 
2006 013450 013737 001426 001236 MOV LO8.11,STAT LOAD MLINE CARD STATUS INTO STAT 
2007 013456 eee BMI 102$ ‘BR IF LINE CARD NOT TO BE TESTED 
2008 013460 004737 013514 JSR PC,105$ 300 THE TEST FOR LINE CARD 3 
2009 013464 012700 000014 102$: MOV #12.,R0 a LINE NO. 
2010 013470 013737 001414 001244 MOV MASK .D,MASKX GET MASK 
2011 013476 013737 001430 001236 MOV Li2. is; STAT ;LOAD LINE CARD STATUS 
2012 013504 100402 BMI 103$ :BR IF LINE CARD NOT TO BE TESTED 
2013 013506 004737 013514 JSR PC,105$ 3;D0 THE at FOR LINE CARD 4 
2014 013512 104400 103$: SCOPE ;SCOPE THIS TEST. 
2015 013514 105$: TEST ENTRANCE. 
2016 013514 012737 013554 001220 MOV #1$,LOCK :SET IF SwO9=1 
2017 013522 104413 RAMCLR sCLEAR ALL SEC REGISTERS 
2018 [eeeeeeeeteneeeeeereretetereeereneetereentenrertienentetnetes 
2019 013524 004737 023734 JSR PC ,MODDAT 360 CLCATE CNTRL BYTE OFFSETS (REV. DO) 
2020 013530 112737 000002 026523 MOVB #BiT1, TXTAB+31 ““SND/DLE'’ IN CNTRL BYTE 
2021 013536 112737 000031 025472 MOVB #31, TXBAP 7SET Tk SATA CHAR 
2022 013544 105064 033072 CLRB RXTAB(R4) [ZERO RX CNTRL BYTE 
2023 [eeeneeeereeeeerertrerereereeerenrerererererntererereeteteees 
spss 013550 at ga 4 sp MOV #4 ,R2 3SET FOR 4 LINE GROUP 
025 013554 0047 025136 1$: JSR PC, *DV110N :SET ROUTINE THING 
2026 013560 004537 wt PERFORM SETREG 
2027 013564 012 612, “LINE PROTOCOL REG 
2028 013566 012400 1354400 DATA 
2029 013570 012400 #25%400 3 IN HIGH BYTE 
2030 013572 005037 032472 LR RXBA ;ZERO RX BUFFER 
2031 013576 005277 165560 INC aDvscR iSET a CPU GO 
2032 013602 105777 165554 TSTB aDvVSCR WAIT FOR 
2033 013606 100375 BPL 74 :DVSCROT=1 
2034 013610 013704 032472 MOV RXBA,R4 [GET DAT 
2035 013614 012705 000025 #25,R5 ;LOAD DLE INTO EXPECTED 
2036 jteeeeeaeaacencececerecececeecernenneaatasasaesatereretececes 
2037 013620 032737 040000 001236 BIT #PARBIT,STAT ;PARITY ENABLED? (REV. DO) 
2038 013626 001402 BEG 16% 3; 1F NO, BRANCH 
2039 013630 043704 001244 BIC MASKX, RG 7ELSE CLEAR BIT 
2040 013634 120504 168: CMPB R5,R4 
2041 ;etaeenncnnnaueneececceecenceceuuaqqoousnanssacseaseasens 
sone 013636 (01401 BEQ $ 
2043 013640 104903 HLT 225 COLE) NOT 1ST IN RX BUFFER 
2044 013642 10441 MSTCLR ; INIT Dv11 
2065 + 112777 000012 165522 vB #12, aDVSRSH > SEL LINE PROTOCOL 
sore 13652 005077 16552 CLR @DVSRA ZERO IT. 
013656 104401 SCOP1 LOCK ON” SELECTED LINE? 

2048 01 005200 INC RO [UPDATE LINE POINTER 

9 + 005 ; DEC R2 74 LINE GROUP DONE? 

50 013664 00135 $ ;BR IF NO 
2051 013666 000 RTS PC sEXIT FOR NEXT GROUP OF LINES 
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101$: 
1028: 


103$: 
105$: 


1$: 


3$: 





peeeeeeeeeerereeeeeeerene TEST 10 seeeecerereeeererererereerrere 
[*TEST OF BOTH BITS 6 AND 5 OF THE LINE PROTOCOL REG. 

T®TEST THAT NEITHER THE TRANSMITTER OR RECEIVER 

[*CONTROL BYTES ARE USED AND THAT 

T®THE CHARS ARE AUTOMATICALLY INCLUDED INTO THE BCC. 

setuls TEST I$ DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 


reReeeeeeereeeeeeereeeeeeeeereeereeeereereererereeerenererererere 


MOV #10,TSTNO 
MOV #@TST11 NEXT 


MOV #0. ,RO :PLACE LINE NUMBER INTO RO 
MOV L00.03,STAT SLOAD LINE CARD STATUS INTO STAT 
BM: 1008 “BR IF LINE CARD NOT TO BE TESTED 
JSR PC,105$ :GO DO THE TEST FOR LINE CAR 
MOV #4. RO [PLACE LINE NUMBER INTO RO 
MOV L04.07, STAT [LOAD LINE CARD STATUS INTO STAT 
BM! 1018 :BR IF LINE CARD NOT TO BE AHESTED 
JSR PC,105$ [GO DO THE TEST FOR LINE CARD 2 
MOV #8. ,RO [LOAD LINE NUMBER 
MOV 108.11,STAT [LOAD LINE CARD STATUS INTO STAT 
BMI 102$ BR IF LINE CARD NOT TO BE TESTED 
JSR PC, 105% THE TEST FOR LINE CARD 3 
MOV #12.,R0 SP OAD D LINE NO. 
MOV L12.15,STAT [LOAD LINE CARD STATUS 
BMI 103$ :BR IF LINE CARD NOT 10. BE TESTED 
JSR PC,105$ THE TESTS FOR LINE C 
SCOPE + OCOPE THIS TEST. 
[TEST ENTRANCE. 
MOV #1$,LOCK [SET RETURN IF SwO9=1 
RAMCLR [CLEAR ALL SEC REGISTERS 
MOV R2 SET FOR 4 LINE GROUP 
MOVB weit ?*B1T6+BITS TXTAB#15 
MOVB = TXTAB+15, RKTAB+15 :SET RX AND TX NEXT MODE=7 
JSR PC. DV110N >SET UP MINOR DETAILS 
MOVB #12, @DVSRSH :GET LINE «PROTOCOL REGISTER 
BIS #81 To+B115, apvsRrA X AND RX DDCMP MODE 
move #15,T LOAD salk twan 
INC Sovgcre ‘Set MICRO CPU GO 
TSTB = @DVSCR ‘WAIT FOR 
BPL a4 :DVSCRO7=1 
CLR RS TEXPECTED=0 
MOVE =: #14, @DVSRSH :GET TX MODE REG 
MOV QDVSRA,R4 TREAD MODE REG 
BEQ +4 :$/B=0 
HLT i [TX MODE REG $/B=0 
INCB  a@DVSRSH [GET RX MODE REG 
MOV QDVSRA,R4 [READ RX MODE 
BEQ 33 3 
HLT 1 [RX MODE REG $/B=0 
MOVB #6, @DVSRSH [TX BCC REG. 
MOV @DVSRA,R4 TREAD TXBCC REG. 
BNE 4$ oT 


3$/B NOT=0 
HLT 0 sNOTHING IN BCC!! (TX) 








| CZDVD=-D MACY11 30A(1052) 17-JUN-80 15 
| CZ2DV00.P11 02-JUN-80 09:32 
2109 014150 105277 165220 
2110 014154 017704 165216 
2111 014160 001001 
sii¢ 014162 104000 
211 014164 104412 
2114 014166 104401 
2115 014170 005200 
2116 014172 005302 
2117 1014174 001320 
2118 014176 000207 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 014200 012737 000011 001226 
2135 0142 012737 014614 001216 
2136 014214 81¢7 00 000000 
2137 014220 013737 001406 001244 
2138 014226 013737 001422 001236 
2139 014234 100402 
2140 014236 004737 014346 
2141 014242 012700 000004 
2142 014246 013737 001410 001244 
2143 014254 013737 001424 001236 
2144 014262 100402 
2145 014264 004737 014346 
2146 014270 012700 000010 
2147 014274 013737 001412 001244 
2148 014302 013737 001426 001236 
2149 014310 100402 
2150 014312 004737 014346 
2151 014316 012700 000014 
2152 014322 013737 001414 001244 
2153 014330 013737 001430 001236 
2154 014336 100402 
2155 014340 004737 014346 
2156 014344 104400 
2157 014346 
2158 014346 032737 004000 001236 
2159 014354 001401 
2160 014356 000207 
2161 014360 012737 014430 001220 
$169 014366 104413 
2163 014370 012702 000004 
2164 014374 012704 000010 


;GET RX BCC REG 
;READ INTO RG 


sNOTHING IN RXBCC!! 
sINIT DV11 

;LOCK ON SELECTED LINE? 
;UPDATE LINE POINTER 
+g DONE? 


;BR IF NO 
sEXIT FOR NEXT 4& LINE GROUP 


reeeeneereeeeeererereener TEST 1] trereeeeeereerereerenererrenet 


>*TEST OF BIT 1 IN LINE PROTOCOL PARAMETER REGISTER. 


1 NON-SYNC, AND 2 SYNCS 


LJ. 
;*DV11 SHOULD a 1 NON-SYNC,AND TWO SYNCS. 


;*THE TEN LEADING SYNCS S/B STRIPPED 
*THIS TEST IS DONE FOR SYNC LINE CARDS ONLY. 


3 SRAAAAAAAAAAAAREAAERAAAAAARAERAEARAAAAAAEAAARARAEHAEATAARAARAEARAAAHERARAERE 


;PLACE LINE NUMBER INTO RO 

;PLACE ‘MASK''FOR CHARS INTO MASKX 
;LOAD LINE CARD STATUS INTO STAT 
;BR IF LINE CARD NOT TO BE TESTED 
:GO DO THE TEST FOR LINE CARD 1 
te Rh NUMBER INTO RO 


7GET MASK 
;LOAD LINE CARD STATUS INTO STAT 
:BR IF LINE CARD NOT TO BE TESTED 
:G0 DO THE TEST FOR LINE CARD 2 
;LOAD LINE NUMBER 
37GET MASK 
sLOAD LINE CARD STATUS INTO STAT 
:BR IF LINE CARD NOT TO BE TESTED 
7D0 THE TEST FOR LINE CARD 3 
;LOAD LINE NO. 

MASK 


;GET 

;LOAD LINE CARD STATUS 

;BR IF LINE CARD NOT TO BE TESTED 
;D0 THE TESTS FOR LINE CARD 4 
;SCOPE THIS TEST. 

TEST ENTRANCE. 

;#1S THIS AN ASYNC LINE CARD? 
;#BR IF NOT ASYNC LINE CARD. 
sWEXIT TEST. CASYNC LINE CARD NOT TESTED) 
;SET RETURN IF SwO9=1 

;CLEAR ALL SEC REGISTERS 

34 LINE GROUP 

;LOAD TX BUFFER 
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4$: INCB aDVSRSH 
MOV QDVSRA,RS 
BNE 5$ 
HLT 
5$: MSTCLR 
SCOP1 
INC RO 
DEC R2 
BNE 1$ 
RTS PC 
s*TEST OF ‘"STRIP LEADING SYNCS 
s*TEST TO XMIT 10. SYNC CHARS, 
3*€13 CHARS TOTAL) 
:*{ 3 CHARS TO ° 
; TEST 11 
TST11 MOV #11,TSTNO 
MOV #TST12,NEXT 
MOV #0.,RO0 
MOV MASK .A,MASKX 
MOV L00.03,STAT 
BMI 100$ 
JSR PC,105$ 
100$: MOV #4.,,R0 
MOV MASK.B,MASKX 
MOV L04.07,STAT 
BMI 101$ 
JSR PC,105$ 
101$: MOV #8. ,R0 
MOV MASK .C,MASKX 
MOV L08.11,STAT 
BMI 102$ 
JSR PC,105$ 
102$: MOV #12.,R 
MOV MASK .D,MASKX 
MOV L12.15,STAT 
BMI 103$ 
JSR PC,105$ 
103$: SCOPE 
105$: 
BIT #ASYNC,STAT 
BEQ +4 
RTS PC 
MOV #2$,LOCK 
RAMCLR 
MOV #4,R2 
MOV #8. R4 


SEQ 0054 
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2165 014400 012705 025472 MOV #TXBAP,R5 WITH 
2166 014404 113725 001236 1$: MOVB STAT, (RS)+ 38. SYNC 
2167 014410 005304 DEC R4 ; CHARS 
2168 014412 001374 BNE 1$ : 
2169 014414 119782 000005 MOVB #5,(R5)+ LOAD ‘'NON-SYNC"’ CHAR 
2170 014420 113725 001236 MOVB STAT, (R5)+ 7 SYNC 
2171 014424 113725 001236 MOVB STAT, (R5)+ 3 SYNC 
2172 014430 004737 025136 2$: JSR PC,DV110N sMINOR DETAIL SETUP 
2173 014434 005037 032472 CLR RXBA CLEA 
2174 014440 005037 032474 CLR RXBA+2 3RX BUFFER 
2175 014444 004537 025032 PERFORM ,SETREG : 
2176 014450 __001 005 BYTE 601,005 TX PRINCIPLE BC, RX BC 
2177 +014452 177763 -13, 
2178 014454 177775 =3 
2179 014456 112777 000012 164710 MOVB #12, aDVSRSH ;LINE PROTOCOL REG 
2180 014464 012777 000143 164704 MOV #BIT6+BIT5+BIT1+BITO,aDVSRA 
2181 014472 005277 164664 INC aDvVSCR sLP=TX4#RX DDCMP, STRIP SYNC, IDLE MARK 
2182 014476 105777 164660 TSTB aDVSCR ;WAIT FOR 
2183 014502 100375 BPL 74 sDVSCRO7=1 
2184 014504 012705 000005 MOV #5,R5 71ST DATA $/B=15 
2185 014510 113704 032472 MOVB RXBA,RS 3;GET DATA 
2186 014514 042704 177400 BIC #°C<377>,R4 ;STRIP HIGH BYTE 
2187 PeeeeeeeeeeeeHeeeeeeeeee eet reeeeeeaeeKeKeekeKeneeteteeeeeee 
2188 014520 004737 023304 JSR PC ,PAREN ;CHECK PARITY ENABLE (REV. DO) 
2189 :1F ERROR, 1ST CHAR NOT = 15 
2190 RRR RRRA EERE EAA EAA AAAA RARER AAEERAAAAEAREREEE 
2191 014524 113705 001236 8s: MOVB STAT,RS ;LOAD SYNC INTO EXPECTED 
198 014530 042705 177400 BIC #°0<$77>,R5 ;STRIP HIGH BYTE 
19 FERRARA A He AAAeHA ATTA A AAA Ae eA Tee ee ee Kee eee KeKetAeeeeAeeeet 
2194 014534 032737 020000 001236 BIT #20000,STAT sEVEN PARITY EN? (REV. DO) 
2195 014542 001402 BEO 25$ :1f NO , BRANCH. DO NOT MASK PARITY BIT 
2196 ;WHEN PARITY EVEN AS IT MASKS THE SYNC 
2197 ;CHAR MAKING RECVD SYNC ODD, CAUSING 
2198 ;DATA COMPARE ERRORS. 
2199 014544 043705 001244 BIC MASKX,R5 ;CLEAR BITS/PER/CHAR MASK. 
2200 014550 113704 032473 25$:  MOVB RXBAti,R4 :GET 2ND CHAR 
2201 Pee eeeeeKeReeReeeeeeeeeteterereeereKeKeeKeAeteeAeeeenetereeet 
2202 014554 042704 177400 BIC #*C<377>,R4 ;STRIP HIGH BYTE 
2203 FERRARA AAATeA ATA Te eee A eee eee AAA AAA AeeAeeeeeeteeeetetee 
2204 014560 004737 023304 JSR PC ,PAREN ; CHECK PARITY ENABLED (REV. DO) 
2205 ; JUST LEADING SYNCS ARE TO BE STRIPPED 
2206 PeeeeeeeeeeeeeeeteeeeeerereeeeeeeeeKeeeanedeeekeeeerereereret 
2207 014564 113704 032474 4$: MOVB RXBA+2,R4 3;GET 3RD CHAR 
2208 014570 042704 177400 BIC #*C<377> RG :STRIP HIGH BYTE 
2209 PeAeeKeAeeeeeeee eee Ke eee ee eee eeeeeKeeteeteeneeeteteeeereert 
2210 014574 004737 023304 JSR PC PAREN ;CHECK PARITY ENABLED (REV. DO) 
2211 IF ERROR,JUST LEADING SYNCS WERE TO 
gele “BE STRIPPED 
2213 eeRReRRARHARHAEHTAAAAAAAAHAAAAAAAAAAAKAAKENREAAKAKAAKeARee Tee 
2214 014 104412 S$: MSTCLR INIT DV11 
2215 014602 104401 SCOP 1 ;LOCK ON SELECTED LINES? 
2216 014 005200 INC RO ;UPDATE LINE POINTER 
2217 014606 005302 DEC R2 74 LINE GROUP DONE? 
2218 014610 001307 BNE 2% 7;BR IF NO 
$s) 014612 000207 RTS PC sEXIT FOR NEXT GROUP 





} 
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DVOD.P11 02-JUN-80 09:32 DV11 DEVICE DIAGNOSTICS. SEQ 0056 
2221 

2222 a STEST OF BITOS OF BSCR, TEST 12 seeaneneenrreneeeeereeerreerent | 
2223 [*TEST OF BITOB OF DVSCR 
2224 TEST OF ‘'RECEILVER INTERUPT phen pan COMPLE TE'’ 

2225 S*TEST TO RECEIVE 6 ‘wix og TING 

2226 7*O0N EACH CHAR HAVING IT BEING A ‘’SPECIAL CHAR" 

2227 [*AND THE RESTARTING THE MICRO PROCESSOR AFTER EACH 

2228 :* INTERUPT FLAG. 

2229 hee TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 

2230 SRERAARAERAAAEREATEATEAEERAAAAAAEREAAAAAKAHRAAKAEKARHAHKAHK ATE eee 
2231 

soae ; TEST 12 

2234 014614 012737 000012 001226 TST12: MOV #12,TSTNO 

2235 014622 012737 015360 001216 MOV #TST13,NEXT 

2236 014630 012700 000000 MOV #0.,R0 ;PLACE LINE NUMBER INTO RO 

2237 014634 013737 001406 001244 MOV MASK .A,MASKX PLACE ‘MASK''FOR CHARS INTO MASKX 

2238 014642 013737 001422 001236 MOV 129. O3,STAT LOAD LINE CARD STATUS INTO STAT 

2239 014650 100402 BMI 1008 ;BR IF LINE CARD NOT TO BE TESTED 

2240 014652 004737 014762 JSR ox” 105$ 360 DO THE TEST FOR LINE CARD 1 

2241 014656 012700 000004 100$: MOV RO :PLACE LINE NUMBER INTO RO 

2242 014662 013737 001410 001244 MOV MASK B,MASKX ;GET MASK 

2243 014670 013737 001424 001236 MOV wee 07. STAT ;LOAD LINE CARD STATUS INTO STAT 

2244 014676 100402 BMI 101$ ;BR IF LINE CARD NOT TO BE TESTED 

2245 014700 004737 014762 JSR PC,105$ 3G0 DO THE TEST _ LINE CARD 2 

2246 014706 012700 000010 101$: MOV #8. ,R0 :LOAD LINE NUMBER 

2247 014710 013737 001412 001244 MOV MASK.C,MASKX ;GET MASK 

2248 014716 013737 001426 001236 MOV 408. 11,STAT : LOAD LINE CARD STATUS INTO STAT 

2249 014724 100402 BMI 102$ R IF LINE CARD NOT TO BE TESTED 

2250 014726 004737 014762 JSR PC,105$ ‘D0 THE TEST FOR LINE CARD 3 

2251 014732 012700 000014 102$: MOV #12.,R0 LOAD a NO. 

2252 014736 013737 001414 001244 MOV MASK. “0, MASKX 3;GET MAS 

2253 014744 013737 001430 001236 MOV L12. iS. STAT LOAD LINE CARD STATUS 

2254 014752 100402 BM! 103$ :BR IF LINE CARD NOT TO BE + eaten 

2255 014754 004737 014762 JSR PC,105$ :D0 THE TESTS FOR LINE CARD 4 

2256 014760 104400 103$: SCOPE SCOPE THIS TEST. 

2257 014762 105$: [TEST ENTRANCE. 

2258 014762 012737 015100 001220 MOV #66$ ,LOCK 

2259 014770 104413 RAMCLR :CLEAR ALL SEC REGISTERS 

2260 014772 005001 CLR R1 ; 

2261 014774 012702 000004 MOV #4 ,R2 3SET FOR 4 LINE GROUP 

2262 015000 005005 CLR R5 ;LOAD 

2263 015002 012704 025472 MOV #TXBAP ,R4 TX DATA 

2264 015006 110524 1$: MOVB R5,(R4)+ ; 

2265 015010 005205 INC RS ; 

2266 015012 022705 000007 CMP #7,R5 : 

2267 015016 001373 1$ : 

2268 peeeeeeeeeeeeeetererrrerrrereeeereerterteetereeeeeereeeeeeere 

2269 015020 005003 CLR R3 ; (REV. DO) 
2270 015022 005005 CLR RS ; 

2271 01 20es Ath 033072 MOV #@RXTAB,R4 ;POINT TO RX CNTRL TABLE 

sre 0150 013703 001244 MOV MASKX,R3 3GET BITS/CHAR. DATA 

2273 015034 032703 000400 BIT #400,R3 38 BITS/CHAR? 

2274 015040 001004 BNE 11$ :BN IF YES 

2275 015042 032737 040000 001236 BIT #PARBIT,STAT ;PAR. EN? 

2276 015050 001007 BNE 12% :BR IF YES 


dd 













CZ 
C2 
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2277 015052 012705 
2278 

2279 015056 112724 
2280 015062 005305 
soe 015064 001374 
2283 015066 000404 
2284 015070 012705 
2285 015074 004737 
2286 

2287 015100 004737 
2288 015104 004537 
2289 015110 001 
2290 015112 177770 
2291 015114 177772 
2292 015116 112777 
2293 015124 052777 
229% 015132 012737 
2295 015140 012777 
2296 015146 012777 
2297 015154 052777 
2298 « 

2299 015162 005003 
2300 015164 005037 
2301 015170 005037 
2302 015174 104414 
2303 015176 005237 
2304 012808 001372 
2305 015204 104000 
2306 015206 024646 
2307 015210 010005 
2308 015212 000305 
2309 015214 050305 
sate 015216 017704 
2312 015222 004737 
2313 

2314 

2315 015226 052777 
2316 015234 0052 
2317 015236 022703 
2318 015242 001403 
2319 015244 012716 
2320 015250 

2321 015252 042777 
2322 015260 012716 
2323 015264 00000 
2324 015266 105777 
2325 015272 100375 
2326 015274 010005 
2327 015276 000305 
2328 015300 052705 
2329 015304 017704 
2330 

$3 015310 004737 


ww 


= 





09:32 
000006 
000001 


000006 
023366 


025136 


025032 
005 


000012 


000101 
015356 
177776 
015356 


164144 
023304 


000400 
000006 
015164 


000100 
015266 


164070 


040005 
164056 


023304 
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164200 


164126 


164102 
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11$: MOV #6,R5 ;SET UP TABLE LINE COUNTER 
 RAARAAEAAARARAARARAERARETAEHKAERAEHEREAAAHKAERAARARAARAARAAERAARRARAEAAAAAAE 
ds: MOVB #BITO,(R4)+ :RX CNTRL TABLE 
DEC R5 ‘WITH SPECIAL 
‘CHAR BITS 
FARRAR AAAERAETHEAAAAAHATE TERA AAAARERAAAAAAAAAAKKAKAREREAAAS 
BR 66$ :SKIP PARITY EN. SETUP 
12$: MOV #6,R5 ‘SET UP TABLE LINE COUNTER 
JSR PC -BTCHAR 'GO SETUP PAR. EN. DATA 
PPRAARARAAAERERAAEAEEAERAAAEEHA TAA AAAREKEAAAAEHAARAAKAAAAAAAEEE 
66$: JSR PC,DV110N :SET UP DV11 
PERFORM ,SETREG ; 
BYTE 601,005 :TX PRINCIPLE BC, RX BC 
-6 H 
MOVB #12, @DVSRSH “LINE PROTOCOL 
BIS #BIT6,aDVSRA = TX DDCMP 
MOV #340,PS ‘LOCK OUT INTERUPTS 
MOV #67$.aDVRVEC :SET RX INTER VECTOR. 
MOV #340.QDVRLVL :SET PRIO. LEVEL TO 7 
BIS #8 1T6+BIT0,aDVSCR 
:SET RX IE AND UCPU GO. 
CLR R3 “DATA IMAGE 
3$: CLR 69$ :STALL COUNTER 
CLR PS ‘ENABLE INTERUPTS 
DELAY “WASTE TIME 
NC 69% [UPDATE STALL 
BNE 712 ‘BR BACK 
HLT “NO INTERUPT OCCURED. 
CMP -(SP),-(SP) [FAKE AN INTERUPT 
67$: MOV RO,RS [LOAD LINE NO. 
SWAB ORS ‘PUT IN HIGH BYTE 
BIS R3,R5 ‘SET DATA 
MOV aDVRIC,R4 [READ FOUND RESULT 
PRAHA A RAAEAEAAA AAA A TATA ARATE RAEAEAAAARE REAR ARERAREAETE ES 
JSR PC, PAREN :CHECK PARITY ENABLED 
[IF ERROR,DVRIC WRONG! 
FRRARAAEREAAAEAAEAAEA TAHA TA AAA RAAERAAARAAAHARAKARAA ARERR AAEEE 
is: BIS #BIT8,aDVSCR  ;SET "RECEIVER INT RESP COMP" 
INC R3 [UPDATE DATA IMAGE 
CMP #6,R3 [ALL DONE? 
BEG 70% ‘BR IF YES 
MOV #3$, (SP) SET RETURN 
RTI : CONTINUE 
70$: «BIC #BIT6,@DVSCR | :NO MORE INTERUPTS. 
mov #68$, (SP) :SET_RETURN 
68$:  TSTB  aDVSCR “WAIT FOR 
BPL - =DVSCRO7=1 
MOV RO,RS [LOAD LINE NO. 
SWAB RS ‘PUT IN HIGH BYTE 
BIS #B1T1445,R5 ‘BYTE CNT WARNING + DATA" 
MOV @DVRIC,R4 “READ RESULTS 
peeeteaeeeteeerertrrrtererererereteKtaneaneeeeeterteereeteense 
JSR PC, PAREN :CHECK PARITY ENABLE 


;1F ERROR, DVRIC WRONG! 


(REV. DO) 


(REV. DO) 


(REV. DO) 


SEQ 0057 
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2333 MPRRRBRBERASAELALAALELLESEE SER ESE SEE EEE ERR RRR AAR RARER RRR RRR ASS 

2334 015314 012701 032472 S$: MOV #RXBA,R1 :GET RX POINTER | 
2335 015320 005005 CLR RS : 

2336 015322 005004 CLR RG : 
2337 015324 112104 6$: MOVB (R1)¢+,R4 :GET RX DATA CINCORE) 

2338 FRRAAAHEKEHERERAAHAH EEA AA AAA EERAAAAAAAAAAAAETARERKERARAAAAT 

2339 015326 004737 023304 JSR PC,PAREN ;CHECK PARITY ENABLE (REV. DO) 

2340 ;I1F ERROR, RECVR PLACED DATA IN CORE “INCORRECTLY. 

2341 COO eeeeeeateneeeeeeeeeeeeeeeeeereadaaneaeeneeeereneceaeeaeere 

2342 015332 005205 $: INC R5 ;UPDATE DATA IMAGE 

2343 015334 022705 000006 CMP #6.R5 ALL DONE? 

2344 015340 001371 BNE 6$ ‘BR IF NO 

2345 015342 104412 MSTCLR s INIT DV11 

2346 015344 104401 SCOP1 sLOCK ON CURRENT LINE? 

2347 015346 005200 INC RO sUPDATE LINE POINTER 

2348 015350 005302 DEC R2 34 LINE GROUP DONE? 

2349 015352 001252 BNE 66$ :BR IF NO 

2350 015354 000207 RTS PC sEXIT FOR NEXT GAOUP OF LINES 

2351 015356 000000 69$: 0 

2352 

2353 

2354 peeeenereeeeererereeeeeee TEST 13 eeeneeterenvecennarererererere 

2355 eTEST OF THE ‘MARKED BYTE COUNT" 

2356 s*TEST THAT WHEN BIT15=0 FOR oH RECEIVER THAT 

2357 > *BITS 13,14,15 OF LINE STATE OCCUR IN 

2358 s*THE RECEIVER MODE BITS REGISTER. 

2359 :*TEST THAT WHEN BIT15=0 FOR THE TRANSMITTER 

2360 _feTHAT BITS 13,14,15 OF THE LINE _— REGISTER 

2361 SeOCCUR INT THE TRANSMITTER MODE REG. 

2362 3; *ALSO VERIFY THAT BIT10=1 JIN LINE STATE MAKES 

2363 > *RECEIVER “EXPECT THE BCC" 

2364 :*AND THAT BIT10 IN LINE PROGRESS TELL TX TO SEND BCC. 

2365 s*THIS TEST USES CRC.CCITT FOR THE POLYNOMIAL 

2366 T*eNOTEt: IF LINE CARD IS SET FOR OTHER Tae "8"’ BITS 

2367 + * THE TEST WILL *NOT* BE EXECUTED ON THAT LINE CARD!! 

2368 s*THIS TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 

2369 PARRA AE AAA TA AAA AAA AAERAAAARAAAERAAAAARARARKAA AKER KAKA ATES 

2370 

sor s Test 13 

2373 015360 012737 000013 001226 1TST13: MOV #13, TSTNO 

2374 015366 012737 016254 001216 MOV #TST14,NEXT 

2375 015374 012700 000000 MOV #0.,R0 ;PLACE LINE NUMBER INTO RO 

2376 015400 013737 001406 001244 MOV MASK .A,MASKX PLACE "MASK''FOR CHARS INTO MASKX 

2377 015406 013737 001422 001236 MOV L00.03,STAT sLOAD LINE CARD STATUS INTO STAT 

2378 015414 100402 BMI 100$ :BR IF LINE CARD NOT TO BE TESTED 

2379 015416 004737 015526 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 1 

2380 015422 012700 000004 100$: MOV #4. ,R0 sPLACE LINE NUMBER INTO RO 

2381 015426 013737 001410 001244 MOV MASK .B,MASKX 3GET MASK 

2382 015434 013737 001424 001236 MOV L04.07,STAT ;LOAD LINE CARD STATUS INTO STAT 

2383 015442 100402 BM! 101$ :BR IF LINE CARD NOT TO BE TESTED 

2384 015444 004737 015526 JSR PC,105$ :60 DO THE TEST FOR LINE CARD 2 
2385 015450 012700 000010 101$: MOV #8. ,R0 :LOAD LINE NUMBER | 
2386 015454 013737 001412 001244 MOV MASK .C ,MASKX 3GET MASK 

2387 015462 013737 001426 001236 MOV LO8.11,STAT ;LOAD LINE CARD STATUS INTO STAT j 
2388 015470 100402 BM] 102% :BR IF LINE CARD NOT TO BE TESTED | 
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2389 015472 004737 015526 JSR PC, 105$ :D0 THE TEST FOR LINE CARD 3 
2390 015476 012700 000014 102$: MOV #12. ,R0 ‘LOAD wkd NE NO. 

2391 015502 013737 001414 001244 MOV MASK.D,MASKX § :GET MASK 

2392 015510 013737 001430 001236 MOV L12.15,STAT ‘LOAD LINE CARD STATUS 

2393 015516 100402 BMI 103$ BR IF LINE CARD NOT TO BE TESTED 
2394 015520 004737 015526 JSR PC,105$ DO THE TESTS FOR LINE CAR 

2395 015524 104400 103$: SCOPE “SCOPE THIS TEST. 

2396 015526 105$: sTEST ENTRANCE. 

2397 015526 012737 015714 001220 MOV #65$,L SET RETURN IF SWO9=1 

2398 015534 032737 001400 001236 BIT mB {TO0BIt8, STAT :''8 BITS/PER/CHAR ?°° 

2399 0615542 001401 BEQ . ‘BR IF YES 

2400 015544 207 bc “EXIT TEST FOR THIS LINE CARD! 
2401 015546 104413 RAMCLR ‘CLEAR ALL SECONDARY pREGISTERS 
2402 015550 012702 000004 MOV #4,R2 :SET FOR 4 LINE GROUP 

2403 015554 012704 000012 MOV #10. ,R4 ‘LOAD 10 BYTES 

2404 015560 012705 026472 MOV #TXTAB,RS ‘WITH 

2405 015564 112725 000010 1$: MOVB #BIT3, (R5)+ 3s INC/BCC 

2406 015570 005304 DEC R4 : 

2407 015572 001374 BNE 1$ ; 

2408 015574 012705 026472 MOV #TXTAB,RS CLEAR 

2409 015600 013704 001236 MOV STAT, RG ‘SYNC 

2410 015604 042704 177400 BIC echt, RG : CONTROL 

2411 015610 060405 ADD R4RS BYTE 

2412 015612 105015 CLRB (5) ; 

2413 015614 012705 025472 MOV #TXBAP,RS LOAD 

2414 015620 005004 CLR RG ‘DATA 

2415 015622 110425 2$: MOVB  —R4, (RS) + ‘INTO 

2416 015624 005204 INC RG Sgpaeeas se BUFFER 

2417 015626 022704 000013 CMP #11. RG 

2418 015632 001373 B 2$ 

2419 ee eeeeeneeeeeeeteeeteeeeetetenetneeeeeteeeeetterenereeeeees 
2420 015634 005003 CLR R3 : (REV. DO) 
2421 015636 005005 CLR R5 

2422 015640 012704 033072 MOV #RXTAB,R4 POINT TO RX ye A es ADDR. 
2423 015644 013703 001244 MOV MASKX,R3 GET BITS/CHAR DAT 

2424 015650 032703 000400 BIT #400,R3 :8 BITS/CHAR? 

2425 015654 001004 BNE 40$ ‘BR IF YES 

2426 015656 032737 040000 001236 BIT #PARBIT,STAT :PAR. EN? 

2427 015664 001007 BNE 41$ <BR IF YES 

2428 015666 012705 000012 40$: MOV #10. ,R5 “LOAD 10 

2429 015672 112724 000010 38: MOVB #BIT3,(R4)+ :RECEIVER 

2430 015676 005305 DEC R5 ‘CONTROL BYTES 

2431 015700 001374 BNE 3$ ‘WITH "“INC/BCC" 

2432 015702 000404 BR 65$ “SKIP OVER PAR. EN SETUP 
2433 015704 012705 000012 41$: MOV #10. .R5 >SET UP TABLE LINE COUNTER 
2434 015710 004737 023366 JSR PC,BICHAR 60 SETUP PAR. EN. DAT 

2435 Relbaces Secopbentettasseniinabiberstheraaeeetametennmeniiin’ 
2436 015714 010077 163452 65$: MOV RO, @DVSRS :LOAD LINE NO. 

2437 015720 032737 004000 001236 BIT #ASYNC, STAT 2415S THIS AN ASYNC LINE CARD? 
2438 015726 001406 BEQ 80$ ‘#BR IF NOT ASYNC. 

2439 0157 004537 025032 PERFORM ,SETREG : #ADJUST FOR ASYNC LINE CARD 
2440 015734 000 001 “BYTE 600,001 ;#REGISTERS 

2441 015736 025472 TXBAP :#LOAD FOR ASYNC 

2442 015740 077766 <-10.>=BIT15 #LOAD FOR ASYNC 

2643 015742 000405 BR 81$ S#CONTINUE TEST 

2444 015744 0046537 025032 80$: PERFORM ,SETREG . 
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2445 015750 000 001 .BYTE 000,001 :TX PRINCIPLE BA, BC 
2446 015752 025470 SYNC : 
2447 015754 077764 aes I >=BIT15 [MARKED BC! 
2448 015756 004537 025032 81$: PERFORM ,SETREG : 
2449 015762 004 005 -BYTE 604,005 'RX BA, BC 
2450 015764 032472 RXBA : 
2451 015766 077766 <-10.>=B1115 [MARKED BC! 
2452 015770 004537 025032 PERFORM ,SETREG : 
24653 015774 010 011 -BYTE 610,011 [TX TABLE, RX TABLE 
2454 015776 026472 TXTAB 
2455 016000 033072 RXTAB 
2456 016002 004537 025032 PERFORM ,SETREG 
2457 016006 012 013 .BYTE 012,013 :LINE PROTOCOL, LINE STATE 
2458 016010 000031 BIT4+BIT3*+BIiTO ;=CRC.CCITT, IDLE MARK 
2459 016012 162004 BIT15+B1T14+B1T1S+B1T10+BIT 12 
2460 016014 004537 025032 PERFORM ,SETREG :MODE 7, , TXGO 
2461 916020 016 017 “BYTE 616,017 [LINE PROGRESS REC, REC CNTR STORE 
2462 016022 162000 BIT15*BIT14+BIT13+B1T10 :NEXT MODE=7 
2463 016024 000000 0 ZERO 
2464 016026 032737 004000 001236 BIT #ASYNC, STAT [HIS THIS ASYNC LINE CARD? 
2465 016034 001412 BEQ 60$ :#BR IF NO. 
2466 016036 004537 025076 PERFORM ,LOAD.MODE [#LOAD PARAMETERS. 
2467 016042 020000 BIT13 SWRECEIVER ENABLE 
2468 016044 0046537 025076 PERFORM ,LOAD.MODE 7 
2469 016050 015000 <B1Ti2epit11>4B1T9 :#8 BITS/PER/CHAR 
2470 016052 004537 025076 PERFORM ,LOAD.MODE 
2471 016056 072000 CBITGeBiT S91 T12>0B1T10, 
247 :#9600 BAUD. 
2473 016060 000405 BR 61$ 
2474 016062 004537 025076 60$: PERFORM ,LOAD.MODE LOAD 
2475 016066 034000 BIT13+B1T12+BIT11 *MODE AND RECV ENABLE 
2476 016070 004537 024620 PERFORM ,SETSYNC 7GET SYNC CHARS AND ADJUST FOR ONE OR TWO. 
2477 016074 005277 163262 61$: INC aDVSCR :SET MICRO CPU GO 
2478 016100 105777 163256 TSTB = @DVSCR ;WAIT FOR 
2679 016104 100375 BPL a4 =DVSCRO7=1 
2480 016106 017704 163254 MOV ADVRIC,R4 [READ RESULT 
2481 016112 010005 MOV RO,RS _ LINE NUMBER 
2482 016114 000305 SWAB RS T IN HIGH BYTE 
24683 016116 052705 050000 BIS #B1T14+B1T12,R5 ‘ser "BLOCK CHECK COMPLETE" 
2484 TTITITITITITIITIITIITITTI LLL LL Titik 
2485 016122 004737 023304 JSR PC, PAREN sCHECK FOR PARITY ENABLE (REV. DO) 
2486 [IF ERROR, DVRIC INCORRECT 
2487 peeeeenerereeereerererererrerererereeeeetenenereteeeeeeeerett 
2488 016126 112777 000014 163240 4s: MOVB owl, aDVSRSH :GET TX MODE REGISTER 
2489 016134 0177046 163236 MOV BDVSRA,R4 
2490 016140 012705 000007 MOV #B1T2+B111+BITO.RS :WAS NEXT MODE PICKED UP? 
2491 PTITITITITTITITIITITITT LITT titi t ith 
2492 016144 004737 023304 JSR PC, PAREN ;CHECK PARITY ENABLE (REV. DO) 
2493 [IF ERROR, NEXT MODE INCORRECT: S$/B=7 
2494 OOTP T TTT TTTTTTETTTETTTTTITTTTTTT TTT TTT TTT TTT TTT TTT Tete 
2495 016150 105277 163220 bs: INCB aDVSRSH :SEL RX MODE REG 
2496 016154 017704 163210 MOV Q@DVSRA,R4G ;READ 
2497 seneceeencececeeceteetereereeeeeeeeeeeeeeeetereeereeeeeeenett 
2498 016160 004737 023304 JSR PC, PAREN :CHECK PARITY ENABLE (REV. DO) 
2499 ‘IF ERROR, RX MODE REG INCORRECT: S/B=7 


2500 ped aeeeeeenceeneceereerecereeteeteeeneeeeeenereeeerereetrett 
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02-JUN-80 09:32 DV11 DEVICE DIAGNOSTICS. 
005005 6$: CLR R5 SET EXPECTED=0 
112777 000006 163200 MOVB #6 ,aDVSRSH ;SEL TX BCC REG 
017704 163176 MOV Q@DVSRA,R4S ;READ 
001401 BEQ 7$. :BR IF=0 
104001 HLT 1 ;IF BCC WAS SENT; BCC $/B=0 
SRERRARAEREREREREEAEEAATAEAAEAHEAEEEREEAAAARERRAREAEAAEREREEREE 
032737 000400 001244 7$: BIT #400 ,MASKX :8 BITS/CHAR? (REV. DO) 
001004 BNE 9$ ;BR IF YES 
032737 040000 001236 BIT #PARBIT,STAT ;PARITY EN? 
001006 BNE 8$ 3BR IF YES 
105277 163144 9$: INCB a@DVSRSH :SEL RX BCC REG 
FERRARA AHRKHHARAAAAAAATA THAT eKe Te KKHKKeKAAAeAKATAAtereeAKetee 
017704 163142 MOV @DVSRA,R4 ;READ IT 
001401 BEQ 8$ H 
104001 HLT 1 ;1F RX RECVED GOOD BCC; BCC S/B=0 
104413 8$: RAMCLR ;CLEAR ALL SEC REG 
104401 SCOP1 ;LOCK ON CURRENT LINE? 
005200 INC RO ;UPDATE LINE POINTER 
005302 DEC R2 34 LINE GROUP DONE? 
001221 BNE 65$ :;BR IF NO 
000207 RTS PC sEXIT FOR NEXT 4 LINE GROUP 
seeeeneeeieeeeereteneeeee TEST 14 eeataeeaeneaereereereneearennre 
:*TEST OF THE ‘MARKED BYTE COUNT"’. 
3*TEST THAT WHEN BI1T15=0 FOR THE RECEIVER THAT 
:*BITS 13,14,15 OF LINE STATE OCCUR IN 
;*THE RECEIVER MODE BITS REGISTER. 
3*TEST THAT WHEN BIT15=0 FOR THE TRANSMITTER 
s*THAT BITS 13,14,15 OF THE LINE PROGRESS REGISTER 
;*OCCUR INT THE TRANSMITTER MODE REG. 
:*ALSO VERIFY THAT BIT10=1 IN LINE STATE MAKES 
s*RECEIVER “EXPECT THE BCC" 
:*AND THAT BIT10 IN LINE PROGRESS TELL TX TO SEND BCC. 
;*THIS TEST USES LRC8 FOR THE POLYNOMIAL. 
:*THIS TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 
PIAAAAHAAAeAeAeeeteKeKereeeKKeKeKeeeeeKAKeeeAAeeeeereetetereereeee 
; TEST 14 
012737 000014 001226 TST14: MOV #14,TSTNO 
012737 017136 001216 MOV #TST15,NEXT 
012700 000000 MOV #0.,R0 PLACE LINE NUMBER INTO RO 
013737 001406 001244 MOV MASK .A,MASKX :PLACE ‘MASK'’FOR CHARS INTO MASKX 
013737 001422 001236 MOV L00.03,STAT ;LOAD LINE CARD STATUS INTO STAT 
100402 BMI 100$ ;BR IF LINE CARD NOT TO BE TESTED 
004737 016422 JSR PC,105$ :GO DO THE TEST FOR LINE CARD 1 
012700 0004 100$: MOV #4. ,R0 PLACE LINE NUMBER INTO RO 
013737 001410 001244 MOV MASK .B,MASKX ;GET MASK 
013737 001424 001236 MOV L04.07,STAT ;LOAD LINE CARD STATUS INTO STAT 
100402 BMI 101$ ;BR IF LINE CARD NOT TO BE TESTED 
004737 016422 JSR PC,105$ 3GO0 DO THE TEST FOR LINE CARD 2 
or geey 000010 101$: MOV #8. ,RO ;LOAD LINE NUMBER 
013737 001412 001244 MOV MASK .C ,MASKX ;GET MASK 
013737 001426 001236 MOV LO08.11,STAT ;LOAD LINE CARD STATUS INTO STAT 
100402 BM] 102$ 3;BR if LINE CARD NOT TO BE TESTED 
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2557 016366 004737 016422 JSR PC, 105$ :D0 THE TEST FOR LINE CARD 3 
2558 016372 012700 000014 102$: MOV #12. ,RO iLOA D LINE NO. 

2559 016376 013737 001414 001244 MOV MASK .D,MASKX | MASK 
2560 016406 013737 001430 001236 MOV L12.15.STAT ‘LOAD LINE CARD STATUS 
2561 016412 100402 BM] 103$ <BR IF LINE CARD NOT TO BE TESTED 
2562 016414 004737 016422 JSR PC, 105$ :DO THE TESTS FOR LINE CARD 4 
2563 016420 104400 103$: SCOPE “SCOPE THIS TEST. 
2564 016422 105$: ‘TEST ENTRANCE. 
2565 016422 012737 016576 001220 MOV #65$,L0CK “SET RETURN IF SwO9=1 
2566 016430 104413 RAMCLR *CLEAR ALL SECONDARY —e 
2567 016432 012702 000004 MOV #4 ,R2 “SET FOR 4 LINE GROUP 
2568 016436 012704 000012 MOV #10. ,R4 iLOAD 10 BYTES 
2569 016442 012705 026472 MOV #TXTABRS WITH 
2570 016446 112725 000010 1$: MOVB #B1T3, (R5)+  INC/BCC 
2571 016452 005304 DEC : 
2572 016454 001374 BNE § : 
2573 016456 012705 026472 MOV #TXTAB,RS CLEAR 
2574 016462 013704 001236 MOV ST 7 SYNC 
2575 01 042704 177400 BIC #*C<377>,R4 : CONTROL 
2576 016472 060405 ADD RGRS BYTE 
2577 016474 105015 CLRB = (R5) : 
2578 016476 012705 025472 MOV #TXBAP,R5 LOAD 
2579 016502 005004 CLR R4 ‘DATA 
2580 0165046 110425 2$: MOVB  R4, (RS) + : INTO 
2581 016506 005204 INC RG ; TRANSMITTER BUFFER 
2582 016510 022704 000013 CMP #11. RG : 
2583 016514 001373 N 2$ ; 
2584 FURR EERE EAA AE RAAT AAA EEEAREEEAE RARER AAAAARE RE 
2585 016516 005003 CLR R3 : (REV. DO) 
2586 016520 005005 CLR R5 ; 
2587 016522 012704 033072 MOV #RXTAB,R4S ;POINT TO RX TABLE BASE ADDR. 
2588 016526 013703 001244 MOV MASKX,R3 “GET BITS/CHAR DATA 
2589 016532 032703 000400 BIT #400,R3 °8 BITS/CHAR? 
2590 016536 001004 BNE 40$ ‘BR IF YES 
2591 016540 032737 040000 001236 BIT #PARBIT,STAT PAR. EN? 
2592 016546 001007 BNE 41$ ‘BR IF YES 
2593 016550 012705 000012 40$: MOV #10.,R5 [LOAD 10 
594 016554 112724 000010 3$: MOVB #BIT$,(R4)+ *RECEIVER 
2595 016560 005305 DEC R5 CONTROL BYTES 
596 016562 001374 BNE 3$ ‘WITH “INC/BCC’ 
2597 016564 000404 BR 65$ 'SKIP OVER PAR. EN SETUP 
2598 016566 012705 000012 41$: MOV $0. URS :SET UP TABLE LINE COUNTER 
2599 016572 004737 023366 JSR PC,BICHAR :GO SETUP PAR. EN. DATA 
2600 eheeecereerereeeereerereereerereereenennreneerereaeereerere 
2601 016576 010077 162570 65$: MOV RO, @DVSRS :LOAD LINE NO. 
2602 016602 032737 004000 001236 BIT #ASYNC, STAT HIS THIS AN ASYNC LINE CARD? 
2603 016610 001406 BEQ 80$ :#BR IF NOT ASYNC. 
2604 016612 004537 025032 PERFORM ,SETREG ;M#ADJUST FOR ASYNC LINE CARD 
2605 016616 000 001 -BYTE 600,001 S#REGISTERS 
2606 016620 025472 TXBAP :#LOAD FOR ASYNC 
2607 016622 077766 <-10.>-BI115 LOAD FOR ASYNC 
2608 016624 000405 BR 81$ S CONTINUE TEST 
2609 016626 004537 025032 80$: PERFORM ,SETREG 
2610 016632 000 001 :BY te 600,001 “TX PRINCIPLE BA, BC 
2611 016634 025470 SYN ; 
2612 016636 077764 Sra >eBIT15 “MARKED BC! 
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004537 025032 81$: PERFORM ,SETREG : 
04 005 -BYTE 604,005 RX BA, BC 


0 
4 
6 RXBA ; 
0 077766 <-10.>=B1T15 ‘MARKED BC! 
2 004537 025032 PERFORM ,SETREG : 

6 10 011 BYTE 610,011 :TX TABLE, RX TABLE 
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RXTAB 
6664 004537 025032 PERFORM ,SETREG 
6670 012 013 -BYTE 612,013 gLINE PROTOCOL, LINE STATE 
6672 000001 BITO IDLE MA 
162004 B1115sB1T14+B11 SBI 11088112 
6676 004537 025032 PERFORM ,SETREG noe 7, , TXGO 
| 6702 016 017 .BYTE 616,017 CLINE PROGRESS REC, REC CNTR STORE 


16704 162000 B1T15+B1T14+B1T13+B1T10 iNEX XT MODE=7 
000000 0 


00 ERO 
2629 916710 032737 004000 001236 BIT WASYNC STAT WIS THIS ASYNC LINE CARD? 
2630 016716 001412 BEQ 608 ;#BR IF NO. 


1] 
2631 016720 004537 025076 PERFORM ,LOAD.MODE WLOAD PARAMETERS. 
2632 016724 020000 BIT13 ;WRECEIVER ENABLE 
2633 016726 004537 025076 PERFORM ,LOAD.MODE 4 
2634 016732 015000 cBITt2eBiT11>+B1T9 48 BITS/PER/CHAR 


2635 016734 004537 025076 PERFORM ,LOAD 

2636 016740 072000 CBIT4eBiTI SSI T 2>4BIT10, 

2637 :#9600 BAUD. 

2638 016742 000405 BR 61$ 

2639 016744 004537 025076 60$: PERFORM ,LOAD.MODE 

2640 016750 034000 BIT13+B1T12¢B1T11 SLOPE AND RECV ENABLE 

2641 016752 004537 024620 PERFORM ,SETSYNC GET SYNC CHARS AND ADJUST FOR ONE OR TWO. 
2642 016756 005277 162400 61$: INC aDVSCR SET MICRO CPU GO 

2643 016762 105777 162374 TSTB  aDVSCR ‘WAIT FOR 

2644 016766 100375 BPL <4 SDVSCRO7=1 

2645 016770 017704 162372 MOV ADVRIC,R4 ‘READ RESULT 

2646 016774 010005 MOV RO,RS [LOAD LINE NUMBER 

2647 016776 000305 SWAB RS ‘PUT IN HIGH BYTE 

2648 017000 052705 050000 BIS #BIT14+BIT12,R5 :SET "BLOCK CHECK COMPLETE" 

2649 WTITITIIITITIIILITIITIITI LILLIE 

2650 017004 004737 023304 JSR PC,PAREN sCHECK FOR PARITY ENABLE (REV. DO) 
2651 sIF ERROR, DVRIC INCORRECT 

2652 FRARAAAAAAAAAARAARAAAAAAAA AAA AA AA AEAAAAAAAAAAAAAAAAAAAERA AREA 

2653 017010 112777 000014 162356 4s: MOVB #14, a@DVSRSH :GET TX MODE REGISTER 

2654 017016 017704 162354 MOV aDVSRA,R4 

2655 017022 012705 000007 MOV eB 1t2*81T19B1T0, RS sWAS NEXT MODE PICKED uP? 

2656 FRRAAAAAAAAAAAAAAAAAEA AKA AA AeA AeeKeKARKAKKKAKeKKeKeaeeeeeeee 

2657 017026 004737 023304 JSR PC, PAREN :CHECK PARITY ENABLE (REV. DO) 
2658 [IF ERROR, NEXT MODE INCORRECT: S/B=7 
2659 ° eeeeeeeeeceeerererererecereceeeeeeeceraraeareeeeneaeaearerere 

2660 017032 105277 162336 5s: INCB a@DVSRSH :SEL_RX MODE REG 

2661 017036 017704 162334 MOV @DVSRA,R4 : READ 

2662 seeeeeeeeeereetertereeteterereeeteenetnereeeereereetereeeeete 


26635 017042 004737 023304 JSR PC PAREN ;CHECK PARITY ENABLE (REV. DO) 
2664 7IF ERROR, RX MODE REG INCORRECT: S/B=7 
2665 seeeeeetererereererereeeeeeeeeeeteeetenererteeneeteteeeeeeene 

2 017046 005005 6$: CLR R5 SET EXPECTED=0 

2667 017050 112777 000006 162316 MOVB #6 ,aDVSRSH :SEL TX BCC REG 

017056 017704 162314 MOV Q@DVSRA,R4 ;READ 
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2669 017062 001401 BEQ 7$ :BR IF=0 
2670 017064 104001 HLT 1 IF BCC WAS SENT; BCC S$/B=0 
2671 WITTTTITITITITILILITIT ILI LILI Li ilili TTT Thi tii Tit 
2672 017066 032737 000400 001244 7s: BIT #400 ,MASKX :8 BITS/CHAR? (REV. DO) 
2673 017074 001004 BNE 9 :BR IF YES 
2674 017076 032737 040000 001236 BIT #PARBIT,STAT ;PARITY EN? 
2675 017104 001006 BNE 8$ :BR IF YES 
2676 017106 105277 162262 9$: INCB @DVSRSH SEL RX BCC REG 
2677 peeeeeeneredeekeeeeeeeeeereeteeeteeeKeKeeeeeeeeeeKteeeeeeeeeese 
2678 017112 017704 162260 MOV SDVSRA,RG :READ IT 
2679 017116 001401 BEQ 8$ 
2680 017120 104001 HLT 1 t IF RX RECVED = BCC; BCC S/B=0 
2681 017122 104413 8$: RAMCLR [CLEAR ALL SEC R 
2682 017124 104401 SCOP1 ;LOCK ON CURRENT LINE? 
2683 017126 005200 INC RO os LINE POINTER 
2684 017130 005302 DEC RO 4 LINE GROUP DONE? 
2685 017132 001221 BNE 65$ BR IF NO 
2686 017134 000207 RTS PC sEXIT FOR NEXT 4 LINE GROUP 
8 
2689 peeeeeereeeeeeeereeereree TEST 15 rexeeennenenneraanreereneerenet 
2690 S*TEST OF RECIEVER AND TRANSMITTER MODE BITS. 
2691 :*TEST TO TRANSMIT AND RECEIVE 
2692 3*A DIFFERENT CHAR ie EACH 
2693 :*MODE. THE TX TABLE WILL BE 
2694 *F ILLED WITH ‘SEND ote” SO IF CHAR 
2695 :*GOES TO WRONG TABLE RX WILL 
6 s*RECEIVE A DLE CHAR(31). THE 
2697 s*FILLS TABLE WITH ‘INCLUDE IN BCC" 
2698 3*SO THAT IF RECV GOES TO WRONG 
2699 ;*TABLE THE RX BCC REG WILL 
2700 3;*BE NON-ZERO! 
2701 gacian CURRENT MODE NEXT MODE 
2702 3* 15 0 1 
2703 7* 16 1 2 
2704 7* 21 2 3 
2705 :* 23 3 4 
2706 3* 25 4 5 
2707 se hf 5 6 
2708 3* 34 6 7? 
2709 3* 32 7 7 
2710 3+ 36 7 7 
2711 3 
2712 Fi 
2713 Seon TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 
2714 PeRARARAAETHAAAAAAAAAAAAEAAAAAARARAAEHARARAAARAAAAKAKeeKeeeeee|re 
715 
She 
2717 
$h19 ; TEST 15 
2720 017136 012737 000015 001226 ITST15: MOV #15, TSTNO 
721 017144 012737 020260 001216 MOV #TST16, NEXT 
722 017152 Or Sosy 000000 MOV #0.,R0 LACE LINE NUMBER INTO RO 
72 017156 013737 aes ae 001244 MOV MASK .A,MASKX PLACE “MASK''FOR CHARS INTO MASKX 
724 017164 013737 001422 001236 MOV L00.03,STAT ;LOAD LINE CARD STATUS INTO STAT 
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2725 017172 100505 
2726 017174 0047 017304 
2727 017200 Ot g7g9 000004 
2728 017204 013737 001410 
2729 017212 013737 001424 
2730 017220 AoeRs 
2731 017222 004737 017304 
273 HET Bi goey 000010 
2733 017232 013737 001412 
2734 017240 013737 001426 
2735 017246 100402 
2736 017250 004737 017304 
2737 017254 012700 000014 
2738 017260 0135737 001414 
2739 017266 013737 001430 
2740 017274 100402 
2741 017276 004737 017304 
2742 017302 104400 
2743 017304 
2744 017304 012737 017670 
2745 017312 104413 
2746 4017314 012705 026472 
2747 017320 012704 033072 
2748 017324 012701 004000 
2749 017330 112725 000002 
2750 017334 112724 000010 
2751 017340 005301 
275 He ot 1376 
27535 017344 537 024620 
2754 017350 012702 000004 
2755 017354 010246 
2756 017356 113705 001236 
2757 017362 942705 177400 
2758 017366 012704 026472 
2759 017372 060504 
sree 017374 105014 
2762 017376 013703 001244 
27635 017402 032703 000400 
764 017406 001004 
2765 017410 032737 040000 
766 017416 001003 
2767 017420 AE 024124 
2768 017424 00044 
2769 grees 132703 000040 
2770 0174 tat 
2771 017434 032737 020000 
2772 017442 001403 
773 017444 012702 024256 
774 017450 reste 
ha Or ees Astoe 024300 
77 017060 139708 000100 
778 017464 Ooi ets 
779 «(0174 032737 020000 
780 017474 001403 
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001244 
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001220 


001236 
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SEQ 0065 


;BR IF LINE CARD NOT TO BE TESTED 
7G0 YO THE TEST FOR LINE CARD 1 
oe _ NUMBER INTO RO 


:GET MASK 

;LOAD LINE CARD STATUS INTO STAT 
;BR IF LINE CARD NOT TO BE TESTED 
7GO0 DO THE TEST FOR LINE CARD 2 
;LOAD LINE NUMBER 

GET MASK 

;LOAD LINE CARD STATUS INTO STAT 
7BR IF LINE CARD NOT TO BE TESTED 
7D0 THE TEST FOR LINE CARD 3 

1am Le NO. 


; SK 

;LOAD LINE CARD STATUS 

;BR IF LINE CARD NOT TO BE TESTED 
300 THE TESTS FOR LINE CARD 4 
;SCOPE THIS TEST. 

;TEST ENTRANCE. 

;LOCK ON LINE RETURN 

“ory ALL SEC REGISTERS 


ALL CNTRL BYTES 
“WITH ''SND/DLE™ 
“WITH “INCL/BCC’ 


'GET SYNC CHARS AND ADJUST FOR ONE OR TWO. 
‘SET FOR 4 LINE GROUP 

[SAVE R2 (REV. DO) 
s ENTRY 


3 IN 
;CONTROL TABLE 


peeeeeeeereeeeeeeeeeeeeeerereeeentenereaetateeaaterenAaeeeees 


BMI 1008 
JSR PC, 105$ 
100$: MOV #4.,R 
MOV MASK .B,MASKX 
MOV L04.07,STAT 
BMI 101$ 
JSR PC,105$ 
101$: MOV #8. ,RO 
MOV MASK.C,MASKX 
MOV L08.11,STAT 
BMI 102$ 
JSR PC, 105$ 
102$: MOV #12. ,R0 
MOV MASK.D,MASKX 
MOV L12.15,STAT 
BMI 103$ 
JSR PC,105$ 
103$: SCOPE 
105$: 
MOV 12$,LOCK 
RAMCLR 
MOV #TXTABLRS 
MOV #RXTAB RG 
MOV #4000,R1 
1$ MOVB #BIT1, (RS7+ 
2$ MOVB  #BIT3, (RA)+ 
DEC 
BNE 
PERFORM ,SETSYNC 
11$: MOV R2 
MOV R2,-(SP) 
MOVB AT,RS 
BIC #°C<877>,R5S 
MOV #TXTAB,RG 
ADD RS RG 
CLRB ss (RG) 
MOV MASKX,R3 
BIT #400,R3 
BNE 
BIT #PPRBIT, STAT 
BNE 22% 
21$: MOV @RXBDAT,R2 
BR 29% 
22%: B1TB #40,R3 
BEQ 4 
BIT @BI1T13, STAT 
BEQ 
ROV @RXSEVN,R2 
23$: MOV @RXSODD RZ 
BR 298 
26$: BITB #106,R3 
BNE 
BIT @B1113, STAT 
BEQ 25% 


:GET BITS/CHAR DATA 
38 BITS/CHAR? 

7BR IF YES 

;PAR. EN? 

38a IF YES 

;POINT TO 8 BIT DATA 
7GO LOAD TABLE 

;5 BITS? 

;BR IF NOT 

sEVN PAR EN? 

;BR IF NOT 


(REV. DO) 


36 BITS? 

;BR IF NOT 
sEVN PAR EN? 
;BR iF NOT 
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2781 0174676 012702 024212 MOV #RXGEVN, RZ ; 
gree Hes 000414 BR : 
78 17506 012702 024234 258: MOd #RXGODD ,R2 ; 
784 01751 11 BR 298 ; 
785 017512 032737 020000 001236 268: BIT seltts. Stat EVN PAR EN? 
786 0175 001403 BEO ;BR IF NOT 
2787 017522 012702 024146 MOV @RXTEVN,R2 ; 
2788 017526 00040 BR 2 
2789 0175 012702 024170 27%: MOV #RX7ODD , R2 ; 
2790 WITITITITITILI LITT Lit LiL l 
2791 017534 113? 7 000040 026507 29%: MOVB #BITS, TXTAB+15 
2792 017542 112737 000100 027110 MOVB #B1T6, TXTABSBIT8+16 
2793 017550 112737 000140 027513 MOVB #B1T6+B1 TS, TXTAB+BIT9+21 
2794 017556 112737 0002 030115 MOVE #BIT7, TXTABSBIT9+B1 T8423 
2795 O17 366 112737 000249 030517 MOVB #BIT7+BITS, LL a RS a 5 
2796 017572 112737 000 031101 MOVB #BIT7+B1 16, TXTAB+B1T10+81 
2797 017600 112737 000340 031526 MOVB #BIT7+B1T6*B1TS, TRTABeBTTTO°0I T9434 
2798 037606 112737 000340 032124 MOVB #BLT7+B1T6+B1T5, TXTABSB11109B1 1998118432 
tea] 017614 112737 000340 032130 MOVB #B1T7+B1T6+B1 TS, TXTAB+B1110+B1 T9+B1 18+36 
2801 peeeeeererraerereeeeeerererererererereerenenereneneeeeenerenenet 
2802 017622 112732 000040 MOVB soit? a(Re)e 3 (REV. D0) 
2803 017626 112732 000100 MOVB #B1T6,a(R2)+ 
2 017632 112732 000140 MOVE #B1TG*BITS ache) 
2805 017636 112732 000200 MOVB #B1T7,a(R2)+ 
2 017642 112732 000240 MOVB #BIT7+B1TS,a(R2)+ 
2807 017646 112732 000300 MOVB #BIT7+B1T6,a(R2)¢ 
$ 017652 118738 000340 MOVE #B1T7+B1 T6+B1TS.a(R2)¢ 
017656 1127 000340 MCVB #BIT7+BL16+BiTS ,a(R2)+ 
2810 017662 112732 000340 Ove #BIT7+BLT6+B1T5,a(R2)+ 
2811 017666 012602 MOV (SP)*,R2 ;RESTORE R2 
2812 eeececeeenceneececereeecenereeeeeeererenetereeeerererenereee 
2813 
2814 017670 012705 032472 128: MOV #RXBA,RS 3SET RX POINTER 
2815 017674 005025 CLR (R5)+ 32 
2816 017676 00502 CLR (R5)+ ; 
a4 017700 005025 CLR (R5)¢ ; ® 
2819 017702 005025 CLR (R5)¢ ; 8 
2820 017704 005025 CLR (R5)+ ;BUFFER! 
set 017706 012705 025472 MOV #TXBAP,RS zL 
2823 017712 012725 (PC) +, (R5)¢ : 0 
2824 017714 01 016 BYTE 15,16 ; OA 
2825 017716 012725 (PC)+,(R5)¢ Dd 
82 7720 0 023 BYTE 21,23 a 
827 017722 012725 MOV (PC)+,(R5)+ ; R 
828 017724 9 007 -BYTE 25,7 ; OA 
2 17726 012725 MOV (PC) +, (RS)¢ ;)OCU«~NN 
28 177 9 032 BYTE 34,32. S 
2831 017732 112725 000036 mOVB #56 (RS) :BUFFER 
soe 017736 01 161450 MOV RO, @DVSRS ;LOAD LINE NO. 
2833 017742 032737 004000 001236 BIT @ASYNC STAT :#1S THIS AN ASYNC LINE CARD? 
834 017750 0014 BEQ 80% ;#BR IF NOT ASYNC. 
835 017752 0045 025032 PERFORM ,SETREG @ADJUST FOR ASYNC LINE CARO 
836 017 000 ~3=— (0011 BYTE 600,001 ;MREGISTERS 
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9:32 DV11 DEVICE DIAGNOSTICS. SEQ 0067 
TXBAP :#LOAD FOR ASYNC 
-9, “#LOAD FOR ASYNC 
BR 81$ :WCONTINUE TEST 
025032 80$: PERFORM ,SETREG : 
001 -BYTE 600,001 ‘PRINCIPLE BA, BC 
SYNC : 
025032 81S: PERFORM SETREG ; 
005 -BYTE 604,005 [RX BA, BC 
“9. ‘ : 
025032 PERF ORM SETREG : 
011 610, [TX TABLE, RX TAB 
iRTAB : 
RXTAB ; 
025032 PERFORM ,SETREG 
013 .BYTE 612,013 ‘LINE PROTOCOL, LINE STATE 
31#400 :31 IN HIGH BYTE 
BIT2 x GO 
004000 001236 BIT #ASYNC, STAT ats THIS ASYNC LINE CARD? 
BEQ 60$ [#BR IF NO. 
025076 PERFORM ,LOAD.MODE S#LOAD PARAMETERS. 
BIT13 :WRECEIVER ENABLE 
025076 PERFORM ,LOAD.MODE ‘# 
<BIT12+BiT11>+BI1T9 jae BITS/PER/CHAR 
025076 PERFORM ,LOAD.MODE 
BITIGeBITIS¥BIT12>6B1T10. 
:#9600 BAUD. 
BR 61$ 
025076 60$: PERFORM ,LOAD.MODE LOAD 
BIT13+B1T12+BIT11 ‘MODE AND RX oENABLE 
161256 61$: INC aDVSCR ‘SET MICRO CPU GO 
161252 TSTB = @DVSCR “WAIT FOR 
BPL ee :DVSCRO7=1 
025472 MOV #TXBAP,R1 “SET TX POINTER 
032472 MOV #RXBA,R3 :SET RX POINTER 
000011 001246 MOV #9., TEMP) ‘CHECK 9. CHAR 
CLR RS ; 
CLR Rd : 
3$: MOVB = (R1) +, RS > SET EXPECTED 
MOVB = (R3) +. RG :SET FOUN 
RT | 5 nn REN |} Bs SERN ene Hor 
023304 JSR PC,PAREN :CHECK PARITY EN. AND DATA (REV. DO) 
‘IF ERROR, DATA DID NOT COMPARE (IS IT IDLE?) 
jtenenenerenenecececececececececncecnceenaeanencenteranenerets 
BEQ 4$ 
HLT 1 “DATA COMPARE ERROR (IS IT IDLE)? 
001246 4$: DEC TEMP1 [ALL CHARS DONE? 
BNE 33 :BR IF NO 
peeenreeneneeeeeerertereeeertereetereeeteenererereeeerereenes 
000400 001244 BIT #400, MASKX :8 BITS/CHAR? (REV. DO) 
BNE 8 ‘BR IF YES 
040000 001236 BIT #PARBIT,STAT PAR. EN? 
BNE “BR IF YES 
000007 161166 8%: MOVB #7, aDVSRSH SEL RX BCC REG 
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ef VOD .P11 02-JUN-80 09:32 DV11 DEVICE DIAGNOSTICS. SEQ 0068 
2893 PURRHRARAARHKAKeK Tee ee Ae terete reKeeeeReeeeKeKeeeeeeeereeeeees 
seee 020206 017704 161164 MOV @DVSRA,RG ;READ IT 
2896 020212 001401 BEQ 5$ s IF RX WENT TO GOOD CNTRL BYTE; 
2897 020214 104001 HLT 1 RX BCC S/ _ =0 
2898 020216 012705 000007 5$: MOV #7,R5 ;SET ag be 
899 020222 112777 000014 161144 MOVB 4#14,aDVSRSH :SEL TX MODE REG 
2900 020230 017704 161142 MOV QDVSRA,RG ;READ x MODE REG 
2901 020234 105277 161134 6$: INCB aDVSRSH ;SEL RX MODE REG 
2902 020240 017704 161132 MOV @DVSRA,RS ;READ IT 
3444 020244 104412 7$: MSTCLR ;INIT DV11 
2905 020246 104401 SCOP1 ;LOCK ON CURRENT LINE. 
2906 020250 005200 INC RO :INC LINE POINTER 
2907 020252 005302 DEC R2 74 LINE GROUP DONE? 
2908 020254 001205 BNE 12$ ;BR IF NO 
444 020256 000207 RTS PC sEXIT FOR NEXT GROUP OF LINES 
2911 pteeeeeeeereterteeeereree TEST 16 teeertenreenerteeneeerererenee 
2912 s*TEST OF RECEIVER AND TRANSMITTER MULTIPLE FUNCTIONS. 
solz S*TEST OF RECV BCC AND TRANS BCC. 
2915 3 *CHAR RX FUNC. TX FUNC. 
2916 3* 0 INC/BCC INC/BCC 
a4 3* 1 INC/BCC/DSCARD INC/BCC 
2919 i* 2 INC/BCC INC/BCC/SND/DLE 
Sosy 3* 3 INC/BCC INC/BCC 
2922 3% 4 NO FUNC SND/DLE 
2923 * 5 INC/BCC/DSCARD INC/BCC 
2924 ;* 6 INC/8CC/EXP/BCC INC/BCC/SND/BCC 
3344 3* NEXT MODE =7 NEXT MODE =7 
*® 
2927 pho TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 
2928 See RRRRERERELER ARERR RARER ORE AAA ARTA Ae Ae RATT 
2929 
2930 
44h ; Test % 
2933 020260 012737 000016 001226 TST16: MOV #16,TSTNO 
2934 620266 012737 021256 001216 MOV #TST17,NEXT 
2935 020274 012700 000000 MOV #0.,R0 PLACE LINE NUMBER INTO RO 
2936 020300 013737 001406 001244 MOV MASK .A,MASKX :PLACE ‘MASK''FOR CHARS INTO MASKX 
2937 020306 013737 001422 001236 MOV L00.03,STAT ;LOAD LINE CARD STATUS INTO STAT 
2938 020314 1o0e0s BM] 100$ ‘BR IF LINE CARD NOT TO BE TESTED 
2939 020316 004737 020426 JSR PC,105$ 3GO0 DO THE TEST FOR ue CARD 1 
2940 020322 Br erRe 000004 100$: MOV #4. ,R0 PLACE LINE NUMBER INTO RO 
2941 020326 013737 001410 001244 MOV MASK .B,MASKX GET MASK 
suse 0203 013737 001424 001236 MOV L04.07,STAT sLOAD LINE CARD STATUS INTO STAT 
2943 020342 Agneds BMI 101% ‘BR IF LINE CARD NOT TO BE TESTED 
2944 020344 004737 020426 JSR PC,105$ :G0 DO THE TEST FOR LINE CARD 2 
2945 020350 81700 000010 101$: MOV #8. ,R0 LOAD a it NUMBER 
2946 020354 013737 001412 001244 MOV MASK. C,MASKX GET MASK 
2947 02036. 013737 001426 001236 MOV 08, ii; STAT sLOAD LINE CARD STATUS INTO STAT 
2948 02037 100402 BM! 102$ :BR IF LINE CARD NOT TO BE TESTED 
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DIAGNOSTICS. 
JSR PC, 105$ :D0 THE TEST FOR LINE CARD 3 
MOV #12. ,RO ;LOAD LINE NO. 
MOV MASK.D,MASKX § :GET MASK 
MOV L12.15.STAT ‘LOAD LINE CARD STATUS 
BMI 103$ iBR IF LINE CARD NOT 10 BE TESTED 
JSR PC, 105$ THE TESTS FOR LINE C 
SCOPE ‘oCOPE THIS TEST. 
sTest ENTRANCE 
MOV #33, RETURN IF SwO9=1 
BIT ral Salts, STAT :'"'8 BITS/PER/CHAR 2" 
BEQ “BR IF YES 
RTS be “EXIT TEST FOR THIS LINE CARD! 
RAMCLR CLEAR ALL SEC REGISTERS 
MOV #TXTAB,RS “CLEAR 
MOV #RXTAB,R3 ; TRANSMITTER 
CLR R4 3 AND 
CLR (R5)4 TRECEIVER 
CLR (R3)+ CONTROL 
INCB RG : TABLES 
BPL 1$ : 
MOV #B1T3,R5 SINC/BCC IS IN RS 
MOVB  R5,TXTAB : INC/BCC 
MOVB  R5.TXTAB+1 :INC/BCC 
MOVB = RS. TXTAB#2  INC/BCC 
BISB  #BITI,TXTAB+2 ; SND/DLE 
MOVB  R5, TXTAB+3  INC/BCC 
MOVB #BIT1,TXTAB+4 :SND/DLE 
MOVB = RS, Txt AB+5 : INC /BCC 
MOVB  R5.TXTAB+6 /BCC 
BIS ABiTToBl TesBI T5812, TXTABY6 :INC/BCC SND/BCC MOD=7 
MOVB R5,RXTAB : INC/BCC 
MOVB = RS RXTAB+1 : INC/BCC 
BISB #BIT4,RXTAB+1 : DSCARD 
MOVB  R5, RXTAB+2 > INC/BCC 
MOVE  R5.RXTAB+3  INC/BCC 
CLRB RXTAB+4 3NO FUNC. 
MOVB RS ,RXTAB+5 : INC/BCC 
BISB #BIT4,RXTABSS : DSCARD 
MOVB #B1T7SB1 TosBLTSHBLS0B1T2) RXTAB+6 :INC/BCC EXP/BCC MODE=7 
MOV #4 ,R2 >SET FOR 4 LINE GROUP 
CLR RXBA : 
CLR RXBA+2 “RX 
CLR RXBA+G :BUFFER 
CLR RXBA+6 3AR 
MOV RO, a@DVSRS st ORD LINE NO. 
BIT #ASYNC, STAT i418 thls AN ASYNC LINE CARD? 
BEQ 80$ “#BR IF NOT ASYNC. 
PERFORM ,SETREG “#ADJUST FOR ASYNC LINE CARD 
-BYTE 600,001 SWREGISTERS 
TXBAP “#LOAD FOR ASYNC 
~ “#LOAD FOR ASYNC 
BR 81$ s@CONTINUE TEST 


SEQ 0069 


SEs 5 


SSSSSSSSSSSS 
ot ot oS ot oo 
DONOUSWN—O 
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160322 
160316 


032472 
021246 
000007 
023304 
001252 
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80$: PERFORM .SETREG : 
“BYTE 600,001 :PRINCIPLE BA, BC 
81$: PERFORM SETREG : 
-BYTE 604,005 [RX BA, BC 
RXBA ; 
-10. 3 
PERFORM SETREG : 
610,011 [TX TAB, RXTAB 
TYAS : 
RXTAB ; 
PERFORM SETREG 
sorte 613,012 :LINE STATE, LINE PROTOCOL 
<20*400>+BIT4*B1T3+BIT0 ;DLE(20 HIGH BYTE) CRC. CCITT, IDLE MARK 
BIT #ASYNC STAT #IS THIS ASYNC LINE CARD? 
BEQ 60$ :WBR IF NO. 
PERFORM ,LOAD.MODE [#LOAD PARAMETERS. 
BIT13 ; RECEIVER ENABLE 
PERFORM ,LOAD.MODE 
coIrizepitl1>+B119 a8 BITS/PER/CHAR 
PERFORM ,LOA 
CBITIGeBiTISeBITI2>eBIT10. 
:#9600 BAUD. 
BR 4$ 
60$: PERFORM ,LOAD.MODE LOAD 
BIT13+BIT12+BiT11 [MODE AND RX ENABLE 
PERFORM ,SETSYNC [GET SYNC CHARS AND ADJUST FOR ONE OR TWO. 
4$: CLR RG [LOAD 
MOV #TXBAP,RS : TX 
S$: MOVB = R44, (RS) + DAA 
INC R4 3 
CMP R4 #7 : 
BNE 5$ 
INC aDVSCR SET MICRO CODE GO 
TSTB = aDVSCR ‘WAIT FOR 
BPL oh *DVSCRO7=1 
MOV #RXBA,R1 [GET RX POINTER 
MOV #50$,R3 [GET DATA EXPECTED POINTER 
MOV #7. , TEMPS *CHECK 7 CHARS 
6$: MOVB = (R1) +, RG *GET RECEIVED CHAR 
MOVB = (R3) +, RS :GET EXPECTED CHAR 
seeeeneeteceneeerectecteteete eeeeeteeteeneneeteteerererges 
JSR PC, PAREN :CHECK PARITY EN. & DATA (REV. 
:[F ERROR, RX DATA BAD 
PUTT TTT TTT TT TTT TTTTTTTTTTTTTTT LITT T TTT T TT TUTTE TTT 
$: DEC TEMP :ALL CHARS DONE? 
BNE 6$ ‘BR IF NO 
MOVBso#l4, aDvSRSH :GET TX MODE REG. 
MOV @DVSRA,R4 : 
BIC #°C<BIT2+BITI*BI170>,R4 ;CLEAR JUNK 
MOV #7 RS =SET EXPECTED=7 


ee ee eS 
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DV11 DEVICE DIAGNOSTICS. 


PERAAHHAAAAKARAAAHEKAKAAA TAKA Kee eKKHAAAeAKAKeKeKAKAKKeeeeeee 
JSR PC, PAREN :CHECK PARITY EN. & DATA (REV. DO) 
‘IF ERROR, TX MODE REG NOT = 7! 
Ceeeeeeecenreeeeereeeereeeaeererenenaredenageranererenereeere 
bs: INCB aDVSRSH :RX MODE REG 
MOV QDVSRA 
BIC F CeBt to eBIT1+BITO>, R4 : 
seeeeeeeeeeeernereeretereeeeeereereereeeteeneeetaneneneneneenet 
JSR PC, PAREN :CHECK PARITY EN. & DATA (REV. DO) 
[IF ERROR, RX MODE REG NOT = 7! 


-RERAAARAAAAAAAAEEHERAEETETHEKATAARERAAAAAAARAAAREHRAAEAERAAAAEEERERE 


bs; MOVB #6,@DVSRSH :TX BCC REG 

MOV ADVSRA,R4 ; 

BEQ 10$ : 

CLR RS 3 

HLT 1 ‘TX BCC REG $/B=0 
108: INCB  @DVSRSH : TXBCC 

MOV ADVSRA,R4 : 

BEQ 11$ : 

CLR RS : 

HLT 1 [RX BCC REG $/B=0 
11$: MOV RO,RS [LOAD LINE NO. 

SWAB RS. “PUT IN HIGH BYTE 


BIS #BIT14+BIT12.R5 :SET BCC COMPLETE 
MOV ADVRIC,R4 SREAD RIC 
FRRAAAARAAAAEAAAAAEEAAERAEHEE EAHA AAAKKHRAARAAKKKRKHAReKEAE Eee 

JSR PC PAREN :CHECK PARITY EN. & DATA 

‘IF ERROR, DVRIC INCORRECT 

PRAAAAAAAAAAAKAKA AAA AA Kee AKe Keer eKKkKKeKKeeKeKeeaneteereene 
12$:  RAMCLR :CLEAR ALL SEC REGS 

SCOP1 “RETURN WITH SAME LINE 


(REV. DO) 


INC RO : UPDATE LINE POINTER 
DEC R2 4 LINES DONE? 
BEQ +6 ‘BR IF NO 
JMP 3$ SJMP IF YES 
RTS PC ZEXIT 
508: .BYTE 0,20 
"BYTE 2.3 
BYTE 20,4 
BYTE 6,0 


peeketeererererereerreeet TEST 17 sxeeeeaeererereeeeenrererereere 
s*TEST OF RECEIVER RESYNC 

:*TEST TO ewe A BLOCK OD 

Z*DATA (SYN,SYN,1,2,3,4,5) 

TtHAVING CHAR "41" SE inc A “SPECIAL CHAR" TO THE RECEIVER 

;*AT WHICH TIME A ‘'RE-SYNC ‘' PULSE WILL BE ISSUED 

> *AND A RESTART CHAR PROC. (DVSCRO8=1) WILL BE DONE. 

;*WHEN THE TRANSMITTER IS DONE (DVSCR15=1) A SECOND 

> *BLOCK OF DATA (SYN,SYN,SYN,SYN,6,7,10) 

T*WILL BE SENT EXPECTING THAT THE NEXT TIME DVSCRO7=1 

*THAT THE bait WILL HAVE: 

relgs 1 11:08=LINE NO. _07:00= °'10° 

+ *RXBUF FER (CORE) $/B= 1,6,7,10. 

seTHIS TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 


PRAAARAAAAAAAKATAEKAAAAAAAATKARAKeKAKeeeKeteeteeteeeteneeeeteteses 


SEQ 0071 


eee | 
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3117 
318 ; TEST 17 
3120 021256 012737 000017 001226 TsT17: MoV #17 
3121 021264 012737 022506 001216 MOV aTst20. NEXT 
3122 021272 012700 000000 MOV #0.,RO :PLACE LINE NUMBER INTO RO 
3123 021276 013737 001406 001244 MOV MASK.A,MASKX |: PLACE “"MASK''FOR CHARS INTO MASKX 
3124 021304 013737 001422 001236 MOV L00.03,STAT ‘LOAD LINE CARD STATUS INTO STAT 
3125 021312 100402 BMI 100$ ‘BR IF LINE CARD NOT TO BE TESTED 
3126 021314 004737 021424 JSR PC,105$ 'GO DO THE TEST FOR LINE CARD 1 
3127 021320 012700 000004 100$: MOV #4. ,R0 sPLACE LINE NUMBER INTO RO 
3128 021324 013737 001410 001244 MOV MASK.B, ASK :GET MASK 
3129 021332 013737 001424 001236 MOV L04 0" [LOAD LINE CARD STATUS INTO STAT 
3130 021340 100402 BMI 101$ [BR IF LINE CARD NOT TO BE TESTED 
3131 021342 004737 021424 JSR PC. 105$ :GO DO THE TEST FOR LINE CARD 2 
3132 021346 012700 000010 101$: MOV #8. ,RO :LOAD LINE NUMBER 
3133 021352 013737 001412 001244 MOV MASK. C, oMASK [GET MASK 
3134 360 013737 001426 001236 MOV 08.1 STAT “LOAD LINE CARD STATUS INTO STAT 
3135 021366 100402 BMI 102$ ‘BR IF LINE CARD NOT TO BE TESTED 
3136 021370 004737 021424 JSR PC, 105$ [DO THE TEST FOR LINE CARD 3 
3137 021374 012700 000014 102$: MOV #12. ,RO ;LOAD LINE NO. 
3138 021400 013737 001414 001244 MOV MASK.D,MASKX § :GET MASK 
3139 021406 013737 001430 001236 MOV L12.15,STAT [LOAD LINE CARD STATUS 
3140 021414 100402 BMI 103$ ‘BR IF LINE CARD NOT TO BE TESTED 
3141 021416 004737 021424 JSR PC,105$ [DO THE TESTS FOR LINE CARD 
3142 021422 104400 103$: SCOPE ‘SCOPE THIS TEST. 
3143 021424 105$: > TEST ENTRANCE. 
144 0214246 012737 021516 001220 MOV #1$,LOCK ?SET RETURN 
145 021432 104413 RAMCLR SCLEAR ALL SEC. REGS 
3146 tts Mee car SORRE BE Ce CEM oS eee 
3147 021434 012705 026472 MOV #TXTABLRS : CLEAR (REV. DO) 
3148 021440 012703 033072 MOV #RXTAB_R3 ; TRANSMITTER 
3149 021444 005004 CLR RG AND 
3150 021446 005025 45$: CLR (R5)+ “RECEIVER 
3151 021450 005023 CLR (R3)+ : CONTROL 
3152 021452 105204 INCB RG : TABLES 
3153 021454 100374 BPL 45% ; 
3154 021456 032737 020000 001236 BIT #20000, STAT ‘EVN PAR. EN? 
3155 021464 001010 BNE 20$ ‘BR IF TRUE 
3156 seeeeeeeeeeeeeteneeeteeteneteeteeeteteetteeteeteeeeeeeeeeene 
3157 021466 112737 000001 033073 MOVB #BITO,RXTAB+1 ;SET “SPECIAL CHAR'’ CNTRL BYTE 
3158 021474 005037 033100 CLR RXTABS6 CLEAR 
3159 021500 005037 033102 CLR RXTAB+10 ‘OTHER CNTRL BYTES 
3160 0215046 000402 BR 21$ :SKIP OVER EVEN SETUP (REV. DO) 
3161 021506 004737 024322 20$: JSR PC ,EVNDAT :GO GET EVEN DATA (REV. DO) 
3162 021512 012702 000004 21$: MOV #4.R2 >SET FOR 4 LINE GROUP (REV. DO) 
3163 021516 010077 157650 1$: MOV RO. aDVSRS : LOAD LINE NUMBER 
3164 51366 032737 004000 001236 BIT #ASYNC, STAT ais + we ASYNC LINE CARD? 
3165 021530 001406 BEQ 80$ R IF NOT ASYN 
166 021532 004537 025032 PERFORM ,SETREG STAD JUST POR ASYNC LINE CARD 
3167 021536 000 001 .BYTE 600,001 : REGISTERS 
3168 021540 025472 TXBAP [#LOAD FOR ASYNC 
3169 021542 177773 =5 [#LOAD FOR ASYNC 
3170 021544 000405 BR :#CONTINUE TEST 
171 021546 004537 025032 80$: PERFORM Rane ; 
3172 021552 000 001 .BYTE 600, [RX BA P, RX BC P 


—s 
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3173 021554 tage SYNC : 
3174 021556 17777 -7 : 
3175 021560 025032 81$: PERFORM SETREG : 
3176 021564 00 005 -BYTE 604,005 “RX BA RK BC 
3177, 021566 032472 : 
3178 021570 177774 : 
3179 021572 537 025032 PERFORM SETREG ; 
3180 021576 010 011 .BYTE 610,011 [RX CNTRL TAB, RX CNTRL TAB 
3181 021600 026472 TXTAB : 
3182 021602 033072 RXTAB 
3183 0216046 004537 025032 PERFORM ,SETREG ; 
3184 021610 013 012 .BYTE 613,912 [LINE STATE, LINE PROTOCOL PARAMS. 
3185 021612 BIT2 :TX GO 
3186 021614 000101 B1T6*B1T0 [TX,DDCMP, IDLE MARK 
3187 021616 032737 004000 001236 BIT @ASYNC,STAT :#1§ THIS ASYNC LINE CARD? 
3188 021624 001412 EQ 60$ :#BR IF NO. 
3189 021626 025076 PERFORM ,LOAD.MODE ;@LOAD PARAMETERS. 
3190 021632 020000 B1T13 TWRECEIVER ENABLE 
3191 021634 004537 025076 PERFORM LOAD . MOD ia 
3192 021640 015000 <BITI20B1T11>9B" 48 BITS/PER/CHAR 
3193 021642 004537 025076 PERFORM ,LOAD 
3194 021646 072000 BIT eeBiT Sei Ti2>eBIT10, 
3195 :#9600 BAUD. 
3196 021650 000403 BR 
3197 021652 004537 025076 60S: PERFORM ,LOAD.MODE LOAD 
3198 021656 034000 BIT) SeBIfi2*BiT11 [MODE + RX ENABLE 
3199 021660 005037 032472 61$: CLR RXBA >CLEAR 
200 21 005037 032474 CLR RXBA+2 [RX BUFFER 
201 021670 012705 025472 MOV #TXBAP,RS “SET TX POINTER 
3202 021674 005004 CLR R4 [LOAD 
3203 021676 005204 23: INC RG sDATA 
3204 021700 110425 MOVB = R4, (RS) * > INTO 
3205 021702 022704 000005 CMP #5..R4 [TX BUFFER 
021706 001373 BNE 23 (1-5) 
3207 021710 004537 024620 PERFORM ,SETSYNC “GET SYNC CHARS AND ADJUST FOR ONE OR TwO. 
3208 021714 005277 157442 INC aDVSCR :SET UCPU GO 
021720 005005 CLR RS SET COUNTER TO 0 
3210 021722 105777 157434 TSTB = @DVSCR [WAIT FOR DVSCRO7=1 
3211 021726 100404 BM! +12 :BR IF SET 
3212 021730 104414 DELAY STALL TIME 
3213 021732 005205 INC RS UPDATE 
3214 021734 001372 BNE -12 eAiT 
3215 021736 104000 HLT :DVSCRO7 NOT SET. 
3216 021740 005005 CLR RS iSeT COUNTER TO 0 
3217 021742 005777 157414 TST aDVSCR X DONE? 
3218 0217466 100404 BM! +12 ‘on IF DVSCR15=1 
3319 021750 104414 DELAY : STALL TIME 
3220 021752 005205 INC RS UPDATE 
3221 021754 001372 BNE =12 
$556 021756 104000 HLT eRe NOT SET. 
3223 021760 012705 025472 MOV #TXBAP,RS SET TX POINTER 
3224 021764 113725 001236 MOVB STAT, (RS) > SYNC 
3225 021770 113725 001236 MOVB STAT, (R5)¢ : SYNC 
3226 0217746 012704 000006 MOV #6 RG [SET 1ST DATA TO 6 
3227 022000 110425 3$: MOvB R4,(RS)* sLOAD 
3228 022002 005204 INC RG :DATA 
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022704 000011 CMP #11,R4 ZALL DONE? 
10 001373 BNE 3$ ‘BR IF N 
12 032737 004000 001236 BIT #ASYNC, STAT ‘#1S THIS AN ASYNC LINE CARD? 
20 001406 BEO 82$ [#BR IF NOT ASYNC. 
22 004537 025032 PERFORM ,SETREG SWADJUST FOR ASYNC LINE CARD 
26 000 001 -BYTE 600,001 [WREGISTERS 
30 025474 TXBAP+2 “#LOAD FOR ASYNC 
32 177775 -3 “#LOAD FOR ASYNC 


e WAWAANAA 
& eure § 
rorrorrrnnrrn 


3237 000405 BR 83$ ;#CONTINUE TEST 
022036 004537 025032 82$: PERFORM , SETREG : 
3239 022042 000 001 .BYTE 600,001 ;TX BAP, TX BC P 


3240 022044 025470 SYNC : 
02204 


6 
3242 022050 032737 004000 001236 83%: BIT #ASYNC STAT " #ASYNC —_ CARD? 
3243 022056 001403 BEQ +10 7 #BR 


IF 

3244 022060 004537 025076 PERFORM ,LOAD. MODE :#CLEAR RX ENABLE 
3245 922064 000000 0 if 
3246 022066 112777 000013 157300 MOVB #13, aDVSRSH LINE S$ 
3247 022074 042777 000200 157274 BIC #B1T7,aDVSRA ; CLEAR "Use SEC TABLES" 
3248 0221 052777 000002 FH 9 BIS #B1T1,aDVSRA ;SET RE-SYNC 

157 

022 


02 
3249 022110 112777 000012 256 MOVB #12, aDVSRSH ;SEL LINE PROTOCOL PARAM. 
3250 022116 052777 000002 252 BIS #B1T1,aDVSRA SET STRIP LEADING SYNC 
3251 022124 012737 006000 134 MOV #6000 , 84% GIVE UCPU TIME 
3252 022132 005327 DEC (PC)+ ;TO RESYNC SILO 
3253 022134 00 84$: 0 
3254 022136 001375 BNE “4 
3255 022140 032737 004000 00'236 BIT WASYNC, STAT sMASYNC LINE CARD? 
25 O3¢198 001403 BEQ +10 ;#BR_IF NOT ASYNC LINE CAR 
257 022150 004537 025076 PERFORM ,LOAD.MODE SET RX ENABLE FOR ASYNC LINE CARD 
3258 022154 020000 BIT13 3#RX ENABLE 
3259 022156 112777 000013 157210 MOVB #13,aDVSRSH SEL LINE STATE. 
3260 022164 052777 000004 157204 BIS #8172, aDVSRA T TX GO. 
3261 022172 052777 000400 157162 BIS sorts. @DVSCR TRESTART CPU 
3262 022200 005004 CLR ;SET FOR TIME OUT. 
3263 022202 105777 157154 TSTB abyscr RX DONE? 
3264 022206 100404 BMI +12 BR IF YES 
3265 022210 104414 DELAY WASTE TIME 


— 
2 
oO 
Pp) 


4 ;LOOP — 
BNE e712 R 


04 
72 IF 
00 HLT :DyscRa? NOT SET AFTER RESYNC. 
04 157142 MOV @DVRIC,R4 ;READ DVRIC 

5 MOV RO,RS ;LOAD tt NE NO 

5 SWAB R5 :PLACE IN HIGH BYTE 

5 040010 BIS #B1T14+10,R5 ;SET BC WARNING + CHAR 10 


jpensboveccenpinestncoesenensinnneseecsnonennnneninenen rennet 


SE: 
=e 


een ™ 


- ws 
SS Ff 


oo 


o 


MOV R2,-(SP) sSAVE R2 (REV. DO) 
001244 MOV MASKX,R2 3GET A A a DATA 
040000 001236 BIT #PARBIT,STAT PARITY EN? 

BEQ 40$ :1F NO, BRANCH 
000400 BIT + le :8 BITS/ CHAR? 


BR IF YES 
001244 BIC MASKX,R4 sete CLEAR BIT 
40$: CMP R5,R4 sRIC OK 
pteeteekereeeeeeteeteteetrerreteeeeeeetageeeeateeeranenereeee 
BEQ 4$ 3 
HLT 1 ;DVRIC WRONG 


ooo oO 
uaa A 
~“ 
oe 
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VDD .P11 
3285 022272 912703 032472 4$: MOV ee CHECK RX DATA 
3286 022276 112304 MOVB (R3)+,R : 
3287 022300 012705 000001 MOV #1,R5 : 
3288 peeeeneereneereetectereereererrereetaneenteeetereeeeeerterteee 
3289 022304 032737 040000 001236 BIT + aaa STAT ;PARITY ENABLED? (REV. DO) 
3290 022312 001405 BEQ 41$ :1F 9, BRANCH 
3291 022314 032702 000400 BIT #400 ,R2 :8 BITS? 
3292 022320 001002 BNE 41$ BR IF YES 
3293 022322 043704 001244 BIC MASKX,R4 sELSE CLEAR BIT 
3294 022326 120504 41$: CMPB R5,R4 
3295 jteneceneceeeenecedereeeecececececeananenacncncensenecaceceets 
3296 022330 001401 BEQ 5$ 
3297 022332 104001 HLT 1 i181 CHAR NOT ‘1'"! 
3298 022334 112304 S$: MOVB (R3)+,R4 ; 
3299 022336 012705 000006 MOV #6,R5 
3300 Leeeeteneeneneeeeeeeereetereeteeeenereneeeeetereneterereeeees 
3301 022342 032737 040000 001236 BIT #PARBIT,STAT ;PARITY ENABLED? (REV. DO) 
3302 022350 001405 BEQ 42$ :1F NO, BRANCH 
3303 022352 032702 000400 BIT #400 ,R2 7:8 BITS? 
3304 022356 001002 BNE 42% BR IF YES 
3305 022360 043704 001244 BIC MASKX,RG s ELSE CLEAR BIT 
3306 022364 120504 42$: CMPB R5,R4 
3307 jtetanececenencececeececececeerereneceancnunagececniaagenecess 
3308 022366 001401 BEQ 6$ 
3309 022370 104001 HLT 1 ‘ND CHAR NOT ‘'6"'! 
3310 022372 112304 6$: MOVB (R3)+,R4 : 
3311 022374 012705 000007 MOV #7,R5 5 
at seeeeeeeeeeteneereceeceereeeeeeeeeeteeteneeteteeerereereteetes 
3313 022400 032737 040000 001236 BIT #PARBIT,STAT ;PARITY ENABLED? (REV. DO) 
3314 022406 001405 BEQ 43$ ;1F NO, BRANCH 
3315 022410 032702 000400 BIT #200,R2 :8 BITS? 
3316 022414 001002 BNE 43% 3;BR IF YES 
3317 022416 043704 001244 BIC MASKX,R4 sELSE CLEAR BIT 
3318 022422 120504 43$: CMPB R5,R4 
3319 jtetaneaecennerececeenececececectaeserecenaceatereananeneresess 
3320 022424 001401 BEQ 7$ 
3321 022426 104001 HLT 1  3RD CHAR NOT ‘'7""! 
3322 022430 005205 7$: INC R5 : 
3323 022432 112304 MOVB (R3)+,R4 : 
3324 seeeeeeetereereetectereeereerereereceeeneeeereeereeeeeeeteetees 
3325 022434 032737 040000 001236 BIT eoeett, STAT PARITY ENABLED? (REV. DO) 
3326 022442 001405 BEG 44% 31F NO, BRANCH 
3327 022444 032702 000400 BIT #400 ,R2 78 BIT §? 
3328 022450 BNE 44% ;BR IF YES 
3329 022452 37 001244 BIC MASKX,R4S : TELSE CLEAR BIT 
3330 022456 120504 44$: CMPB R5,R4 
331 jteenceceeeececececeenececececectananatensanananeretececeenens 
3332 022460 001401 BEQ 8$ 
333 022462 104001 HLT 1 C4TH CHAR NOT “10°'! 
3334 022464 104412 8$: MSTCLR sRESET DV11 
3335 0224 104401 SCOP1 ;LOCK ON CURRENT LINE? 
3336 022470 012602 MOV (SP)+,R2 RESTORE R2 (REV. DO) 
337 022472 oT h4' INC RO UPDATE LINE NO. 
338 022474 005302 DEC R2 74 LINES DONE 
339 022476 001402 BEQ -*6 ;BR IF YES 
3340 022500 000137 021516 JMP 1$ ;JMP IF NO 
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DV11 DEVICE DIAGNOSTICS. 
RTS PC sEXIT FOR NEXT 4 LINE GROUP 


reat OF eeceiven eet nne ee 20 eeeeeeeareeereerererererertert 
S*TEST OF RECEIVER OVERR 

:*TEST TO TXMIT 134. CHARS "AND RECV 129 

:*SERVICEING THE FIRST CHAR AS A SPECIAL CHAR 

:*AND STOPING THE CHAR PROCESSOR. 

S*WHEN THE TRANSMITTER FINISHES ALL 134. CHARS 

S®THE RECEIVER IS RESTARTED AND THE NEXT ENTRY 

:*IN THE RIC REG S/B OVER RUN ON CHAR 202(8). 

seTHIS TEST IS DONE FOR BOTH ASYNC AND SYNC LINE CARDS. 


PRRRARAAAEAEEEE RETA EAAAAAAAAAAAAAAAEEAAAARAAAAAAAAAHAAAAAAAAAEE 


; TEST 20 
001226 TST20: MOV #20, TSTNO 
001216 MOV # EOP NEXT 
MOV #0.,R ;PLACE LINE NUMBER INTO RO 
001244 MOV MASK .A,MASKX sPLACE "MASK''FOR CHARS INTO MASKX 
001236 MOV 1 03,STAT ;LOAD LINE CARD STATUS INTO STAT 


BMI 100$ :BR IF LINE CARD NOT TO BE TESTED 
JSR At = 7G0 DO THE TEST FOR LINE CARD 1 


100$: MOV # ;PLACE LINE NUMBER INTO RO 
001244 MOV MASK .B ,MASKX :GET MASK 
001236 MOV Le We STAT ;LOAD LINE CARD STATUS INTO STAT 


BMI 101% :BR IF LINE CARD NOT TO BE TESTED 
JSR PC,105$ 3G0 DO THE TEST FOR LINE CARD 2 


101$: MOV #8. ,RO ;LOAD LINE NUMBER 
001244 MOV MASK .C,,MASKX :GET MASK 
001236 MOV 28. 11,STAT :LOAD LINE CARD STATUS INTO STAT 
BMI § 7BR IF LINE CARD NOT TO BE TESTED 


1028: MOV rc, 1058 


001244 MOV MASK .D ,MASKX MASK 
001236 MOV L12.15,STAT [LOAD LINE CARD STATUS 
BM! 103$ ;BR IF LINE CARD NOT TO BE TESTED 
JSR PC,105$ 3:00 THE TESTS FOR LINE CARD 4 
103$ SCOPE :SCOPE THIS TEST. 
1058: TEST ENTRANCE 
001220 MOV #1$,L0CK ;RETURN FOR SWO9 
RAMCLR CLEAR ALL SEC REGISTERS 
CLA RG : LEAR 
MOV #RXTAB,RS HE 
CLR (R5)+ RECEIVER 
INCB R4 ag Os TROL 
BPL 74 ; TABLE 
001236 BIT #20000, STAT iEVEN 7. EN? (REV. DO) 
BNE 31$ R_ IF TRUE (REV. DO) 
033073 MOVB WBITO,RXTAB+1 SET “SPECIAL CHAR''(1) 
peeeeeeceerenecerececeerereeereeereeeeeeeeeereeteteneetenteees 
BR 30% ;SKIP EVEN SETUP (REV. DO) 
31$: JSR PC ,EVNDAT :GO GET EVEN DATA 
30$: MOV #4 ,R2 :4 LINE GROUP 
POOTETTIVOTITTTITITITITITITITICITITITT LLL LLL 
$: MOV RO,a@DVSRS ;LOAD LINE NO. 
001236 BIT WASYNC STAT :#1S thls AN ASYNC LINE CARD? 


:D0 THE TEST FOR LINE CARD 35 
ee. LINE NO. 
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3397 022742 0014 BEQ 80$ :#BR IF NOT ASYNC. 
3398 022744 004537 025032 PERFORM ,SETREG ‘WADJUST FOR ASYNC LINE CARD 
3399 020750 000 001 .BYTE 600,001 WREGISTERS 
3400 022752 02547 TXBAP S#LOAD FOR ASYNC 
3401 022754 17757 -133. :M#LOAD FOR ASYNC 
3402 022756 000405 BR 81$ S#CONTINUE TEST 
3403 022760 004537 025032 80$: PERFORM .SETREG ; 
3404 022764 000 001 .BYTE 600,001 [TX BA P, TX BC P 
3405 022766 025470 SYNC : 
3406 022770 177572 , 7134. : 
3407 022772 81$: 
3408 022772 032737 004000 001236 BIT #ASYNC,STAT s#1S THIS AN ASYNC LINE CARD? 
3409 023000 001406 BEQ 82$ :#BR IF NOT ASYNC. 
3410 023002 004537 025032 PERFORM ,SETREG S#ADJUST FOR ASYNC LINE CARD 
3411 023006 005 .BYTE 604,005 WREGISTERS 
3412 023010 032472 RXBA “#LOAD FOR ASYNC 
3413 023012 177576 -130. [#LOAD FOR ASYNC 
3414 023014 000405 BR 83$ SWCONTINUE TEST 
3415 023016 004537 025032 82$: PERFORM ,SETREG ; 
3416 023022 004 005 -BYTE 604,005 :RX BA, RX BC 
3417 023024 032472 RXBA ; 
3418 023026 177577 -129. ; 
3419 023030 004537 025032 83$: PERFORM ,SETREG ; 
3420 023034 010 011 -BYTE 610,011 [TX TAB, RX TAB 
3421 023036 02647. TXTAB : 
3422 023040 033072 RXTAB ; 
3423 023042 004537 025032 PERFORM ,SETREG ; 
3424 023046 013 012 -BYTE 613,012 ‘LINE STATE, LINE PROTOCOL PARAM 
5 5 BIT2 TX GO 
3426 023052 000101 B1T6+B1T0 [TX DDCMP + IDLE MARK 
3427 023054 032737 004000 001236 BIT #ASYNC, STAT “#1S THIS ASYNC LINE CARD? 
3428 023062 001412 BEQ 50$ :WBR IF NO. 
3429 023064 004537 025076 PERFORM ,LOAD.MODE ‘#LOAD PARAMETERS. 
3430 023070 020000 BIT13 SWRECEIVER ENABLE 
3431 023072 004537 025076 PERFORM ,LOAD.MODE cf 
3432 023076 015000 <B1T12+Bi111>+B119 [#8 BITS/PER/CHAR 
3433 023100 004537 025076 PERFORM ,LOAD.MODE 
3434 023104 072000 <B1114+B1113+BI1T12>+B1110 
3435 :#9600 BAUD. 
3436 023106 000403 BR 61$ 
3437 023110 004537 025076 60$: PERFORM ,LOAD.MODE LOAD 
3438 023114 034000 BIT13+BI1T12+B1T11 MOD 
3439 023116 012705 025472 61$: MOV #TXBAP,RS LOAD 
3440 023122 005004 CLR R4 : TX 
3441 023126 105204 2$: INCB RG DATA 
344 023126 001402 BEQ 21$ ‘BUFFER 
43 023130 110425 MOVB = R4, (RS) + : 
44 023132 000774 ag 23 ; 
45 023134 004537 024620 21$: PERFORM ,SETSYNC “GET SYNC CHARS AND ADJUST FOR ONE OR TWO. 
023140 005277 156216 INC aDVSCR >SET UCPU 60 
47 023144 105777 156212 TSTB = aDVSCR :DVSCRO7=1? 
48 023150 100375 BPL - :BR IF NO 
49 023152 005777 156204 TST aDVSCR :DVSCR15=1? 
50 023156 100375 BPL a6 “BR IF NO 
51 023160 112777 000012 156206 MOVB #12, @DVSRSH ‘LINE PROTOCOL PARAM. 
52 023166 052777 000040 156202 BIS #BITS,@DVSRA  :SET RX DOCMP 


a ee. 
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67 
DV11 DEVICE DIAGNOSTICS. 


6$: 


BIS #B1T8,aDVSCR 


TSTB = @DVSCR 
BPL .- 

MOV @DVRIC,R4 
MOV RO,RS 


R5 
BIS #81113+202, R5 
BIT wy eas STAT 


;RESTART 
:DVSCRO7=1? 
BR IF NO 
: READ RIC 
LINE 
NIGH BYTE 
#1S THIS AN orien LINE CARD? 
;WBR IF NOT ASYN 


INC = ADJUST FOR ASYNC. DOUBLE BUFFER CAUSES 
A S#CHAR TO BE ONE MORE THAN SYNC LINE CARD. 
 teenenedeeeeeererererterercerenenreeteeerererteeeeeeeenetete 
BIT #400 ,MASKX 38 BITS/CHAR? (REV. DO) 

BNE 6$ BR IF YES 

Bic MASKX,R5 CLEAR UNUSED BITS 

BIC MASKX,R4 3 

CMP R5,R4 30K? 

BEQ 3$ :BR IF YES 

HLT OVER-RUN OR ON WRONG CHARACTER! 
[snesioncenaanecsnnndanpnbeniansssensssemhenannnenennneante 

MSTCLR ;RESET DVA 

COP1 ;LOCK ON a LINE? 

INC RO [UPDATE LINE NO 

DEC Re 74 LINES DONE 

BEQ +6 :BR IF YES 

JMP 1$ ;JMP IF YES 

RTS PC sEXIT 
pee eeeeeeeeenaeeeeeenenereereeteeeeeeeetetteeeeeeeeerereeetes 

SUBROUTINE TO CLEAR MASK BIT IF PARITY ENABLED AND (REV. DO) 


PAREN: 


4$: 


6$: 
5$: 


BICHAR: 


;TO COMPARE DATA. 
BIT #PARBIT,STAT 
B 4$ 


BIC MASKX,R4 
CMPB R5,R4 


$ 

CMP #TST15 NEXT 

BIT #PARBIT, STAT 

BIT #20000, STAT : 


HLT 1 
RTS PC 


CMPB #8 1T3+B110,R6 ATA 


PARITY ENABLED? 
: IF NO, BRANCH 
sELSE CLEAR BIT 


; COMPARE DATA 

;BRANCH IF OK 

De FROM TST 14? 
R IF NOT 

:PARITY EN? 

:BR 


[REPORT ERROR 
;RETURN TO MAIN PROGRAM 


; SUBROUTINE TO SELECT CORRECT DATA TABLE 


7T0 USE IN TESTS 12 AND 1 


4, DEPENDING ON 


“BITS/CHAR, AND PARITY STATUS. 


MOV a5, TEMP) 


;SET UP COUNTER 


SEQ 0078 
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509 0 gr? 132703 000040 B1TB #40,R3 35 BITS/CHAR? 
510 023376 Bo lsis BEQ 23 7BR IF NOT 
511 023400 032737 020000 001236 BIT #20000,STAT EVN PAR? 
alg 0 8 001403 BEQ :BR IF NOT 
513 02341 gery 023660 MOV #EVENS,R1 ;POINT TO DATA TABLE 
514 023414 000431 Be 6$ 300 IT 
515 02 1 012701 023706 1$: MOV #0005 ,R1 ; 
6 Bs set 44 BR $ : 
517 0 4 132703 000100 23: B1TB #100,R3 36 BITS? 
518 02 Oorsis BEQ 4% :BR IF NOT 
519 Bs 032737 020000 001236 BIT #20000,STAT EVN PAR? 
520 023440 001403 BEQ $ :BR IF NOT 
$38) Bs gees 012701 023604 MOV #EVENG,R1 ;POINT TO DATA TABLE 
3522 023446 000414 BR 6$ 700 IT 
3523 tt rks 012701 023632 3$: MOV #0006 ,R1 3 
$25¢ 023454 000411 BR $ ; 
525 023456 032737 020000 001236 4$: BIT #20000, STAT :EVN PAR? 
3526 023464 001403 BEQ $ ;BR IF NOT 
3527 023466 012701 023530 MOV #EVEN7T,RI ;POINT TO DATA TABLE 
3528 023472 000402 Be 6$ 300 IT 
94 023474 012701 023556 5$: MOV #0007,R1 : 
35 023500 022705 000006 6$: CMP #6,R5 :CALLED FROM TEST 127 
$28) 023504 001403 BEQ 7$ sYES,SKIP TST 14 SETU 
a3 023506 112731 000010 MOVB #BITS,a(R1)+ 
353 LOAD “"INC BCC" 
3534 023512 000402 ae bY SKIP TST 12 SETUP 
3535 023514 112731 000001 7$: MOVB #B1TO,a(R1)+ 
3239 3360 005337 001246 8$: DEC TEMP) REDUCE COUNT 
537 023524 001365 BNE 6$ :GO BACK IF NOT FINISHED 
se58 023526 000207 RTS PC RETURN TO MAIN PROGRAM 
3540 
Secs DATA TABLES FOR TESTS 12 AND 14 
3543 023530 033072 EVEN7: RXTABtO 
3544 023532 033273 RXTAB+201 
3545 023534 033274 RXTAB+202 
3546 023536 033075 RXTAB+3 
3547 023540 033276 RXTAB+204 
3548 Bs eeee 033077 RXTAB+S 
3549 023544 033100 RXTAB+6 
3550 023546 033301 RXTAB+207 
3551 023550 033302 RXTAB+210 
3552 023552 033103 RXTAB+11 
$37 023554 033104 RXTAB+12 
555 023556 Oss27e ODD7:  RXTAB+200 
236 023560 ttt RXTAB+1 
557 023562 sere RXTAB+2 
558 023564 4 3275 RXTAB+203 
559 3s 33076 RXTAB+4 
560 0235 033277 RXTAB+205 
561 3 572 033 RATAB S606 
5 23574 033101 RXTAB+ 
563 023576 933108 RXTAB+10 
564 023600 03330 RXTAB+211 
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DD DV11 DEVICE DIAGNOSTICS. SEQ 0080 
$26? 023602 033304 RXTAB+212 
3567 02 03307 EVEN6: RXTAB+O 
3568 023606 03317 RXTAB+101 
3569 023610 033174 RXTAB+102 
3570 023612 033075 RXTAB+3 
3571 023614 033176 RXTAB+104 
3572 023616 033077 RXTAB+5 
3573 tre}! 033100 RXTAB+6 
3574 023622 033201 RXTAB+107 
3575 tren 033202 RXTAB+110 
3576 023626 033103 RXTAB+11 
$er0 023630 033104 RXTAB+12 
3579 023632 03317 ODD6:  RXTAB+100 
3580 023634 03307 RXTAB+1 
3581 623636 03307 RXTAB+2 
3582 023640 033175 RXTAB+103 
3583 023642 033076 RXTAB+4 
3584 023644 033177 RXTAB+105 
3585 023646 033200 RXTAB+106 
3586 023650 033101 RXTAB+7 
3587 023652 033102 RXTAB+10 
3588 023654 033203 RXTAB+111 
ts 44 023656 033204 RXTAB+112 
3591 023660 0335072 EVENS: RXTAB+O 
3592 023662 o33137 RXTAB+41 
3593 02 31 RXTAB+42 
3594 02 033075 RXTAB+3 
3595 023670 033136 RXTAB+44 

5 023672 033077 RXTAB+5 

3597 023674 033100 RXTAB+6 

3598 023676 033141 RXTAB+47 

3599 023700 033142 RXTAB+50 

3600 023702 033103 RXTAB+11 

red 23704 033104 RXTAB+12 

3603 023706 033132 ODD5:  RXTAB+40 

3604 023710 033073 RXTAB+1 

3605 023712 033074 RXTAB+2 

3606 023714 033135 RXTAB+43 

3607 023716 033076 RXTAB+4 

3608 023720 033137 RXTAB*45S 

3609 023722 033140 RXTAB+46 

3610 023724 033101 RXTAB+7 

3611 023726 033102 RXTAB+10 

3612 023730 033133 RXTAB+41 

3613 023732 033134 RXTAB+42 

3618 

3616 ;SUBROUTINE TO DETERMINE VALUES TO BE USED 
ele sAS CONTROL BYTE OFFSETS. 
3618 023734 010346 MODDAT: MOV R3,-(SP) 7 SAVE R3 
3620 023736 005003 CLR R3 ; 
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3621 023740 005037 001252 CLR TEMP :CLEAR 8 BIT /CHAR FLAG 
3622 023744 005037 001250 CLR TEMP2 ‘CLEAR CHAR DATA STORE 
362 923750 013703 001244 MOV MASKX,R3 ‘GET BITS/CHAR DATA 
3624 023754 032737 040000 001236 BIT #PARBIT.STAT | PARITY ENABLED? 
3625 023762 001435 BEQ ;BR IF NOT 
3626 023764 032737 020000 001236 I #20000,STAT [EVN PAR? 
3627 023772 001431 BEQ 4 ‘BR IF NOT 
3628 023774 032703 000400 BIT #400,R3 :8 BITS? 
3629 024000 001404 BEQ ‘BR IF NOT 
363) 024002 112737 000001 001252 MOVB = #1, TEMP3 ‘SET 8 BIT FLAG 
3631 024010 000422 B *GO TO LOAD 8 BIT DATA 
32 0246012 132703 000040 18: BITB #40,R3 :5 BIT, EVEN PAR? 
3633 024016 001404 BEQ 2$ :BR IF NOT 
024020 112737 000071 001250 MOVB = #71, TEMP2 ‘LOAD 5 BIT DATA 
3635 024026 000416 BR EX1T2 ‘GET OUT 
024030 132703 000100 2$: BITB #100,R3 :6 BITS? 
3637 024034 001404 BEQ :BR IF NOT 
024036 112737 000131 001250 MOVB «#131, TEMP2 [LOAD DATA 
3639 024044 000407 BR EXIT :GET OUT 
024046 112737 000231 001250 38: MOVB #231, TEMP2 “LOAD 7 BIT DATA 
3641 024054 000403 BR EX1T2 “GET OUT 
3642 024056 112737 000031 001250 4$: MOVB #31, TEMP2 :SET UP FOR NO PARITY, ODD 
3643 :PAR. OR 8 BIT EVEN PAR. 
3644 024064 013704 001250 EXIT2: MOV as TEMP2, RG : 
3645 024070 012603 MOV (SP)+,R3 SRESTORE R3 
3046 024072 000207 RTS PC “RETURN TO CALLING PROGRAM 
3648 
3649 :*TABLES OF OFFSETS FOR RXTAB IN TEST 4 
3651 024074 SEVTAB: 
3652 024074 033314 RXTAB+222 
3653 024076 033324 RXTAB+232 
3654 024100 033316 RXTAB+224 
3655 024102 033322 RXTAB+230 
3656 
3657 
3658 024104 SIXTAB: 
3659 024104 033214 RXTAB+122 
3660 024106 033224 RXTAB+1 32 
3661 024110 033216 RXTAB+124 
3062 024112 033222 RXTAB+130 
366 
3664 
3665 024114 FIVTAB: 
3666 024114 033154 RXTAB+62 
3667 024116 033164 RXTAB+72 
3668 024120 033156 RXTAB+O4 
3669 024122 033162 RXTAB+70 
3670 
3671 
3672 
3673 :DATA TABLES FOR TEST 15 
3674 
3675 
3676 024124 033107 RXBDAT: RXTAB+1S 


CZDVD-D MACY11 30A(1052) 
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3677 024126 033510 
3678 024130 034113 
3679 024132 034515 
024134 035117 
3681 024136 035503 
3682 024140 036126 
3683 024142 036524 
3684 024144 036530 
3685 
3686 
3687 
36 


88 
3689 024146 033 
3690 


3711 024210 036730 


3716 024212 033207 
3717 024214 033610 
3718 024216 034113 
3719 024220 034615 
3720 024222 035217 
3721 024224 035601 
3722 024226 036226 
3723 024230 036624 
3724 024232 036530 
725 
726 
3727 
3728 
3729 024234 


3732 024242 


17-JUN-80 
732 
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RX7EVN: 


RX70DD: 


RX6EVN: 


RX60DD: 


well a yp at 
RXTAB+B1 T9421 
RXTAB+B119+B118+23 

RXTAB+B1T10425 


+B1T9+3 
+B1T9+B1T8+32 
+ 


I 
RXTAB+BI 
l BIT9+B1T8+36 


RXTAB+215 

RXTAB+B118+216 

RXTAB+B1 T9421 
RXTAB+B1T9+B118+223 
RXTAB+B1 1104225 
RXTAB+B1T10+B1 18+207 
RXTAB+BITI0+B1T9+234 
RXTAB+B1110+B1T9+B118+232 
RXTAB+B1T10+B119+B118+36 


RXTAB+15 

RXTAB+B1T8+16 
RXTAB+BI1T9+221 
RXTAB+BI19+B1 T8423 
RXTAB+B1710+25 
RXTAB+BIT10+B118+7 
RXTAB+BIT10+B119+34 
RXTAB*B1T10+B1T9+B118+32 
RXTAB+B1T10+B1T9+B118+236 


RXTAB+115 
auTapeet erate 
RXTAB+BIT9+21 
RXTAB+B119+B118+123 
RXTAB+B1T104125 
RXTAB+BI1T1 
RXTAB+BIT1 
RXTAB+BI ie 


O+B 
O+B 
O+B 
RXTAB+B1T10+B 


a eee 


+B1T8+132 


RXTAB+15 
RXTAB+B118+16 
RXTAB+B119+121 
RXTAB+BIT9+B1 18423 


SEQ 0082 


f 7 és cna gies | 
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3788 ;SUBROUTINE TO CHECK DATA FOR TESTS 2,3, AND 4. 


CZDVOD.P11 02-JUN-80 09:32 DV11 DEVICE DIAGNOSTICS. SEQ 0083 
3733 024244 035117 RXTAB+B1 110425 
3734 024246 035501 RXTAB+BIT10+B118+7 
3735 024250 036126 RXTAB*BITI0+BI1T9+34 
3736 024252 036524 RXTAB+B1T10+B119+B118+32 
sees 024254 036630 RXTAB+BIT10+B1T9+B118+1 356 
3739 
3740 
3741 
3742 024256 033147 RYSEVN: RXTAB+SS 
3743 024260 033550 RXTAB+B118+56 
3744 024262 034113 RXTAB+B1 T9421 
3745 024264 034555 RXTAB+B119+B118+63 
3746 024266 035157 RXTAB+B1T10+65 
3747 024270 035541 RXTAB+B1T10+B118+47 
3748 024272 036166 RXTAB+BI TIO*+BI T9474 
3749 024274 36564 RXTAB¢BITIO+BI T9+B118+72 
grat 024276 036530 RXTAB+B1T10+B119+B1 18+ 36 
3752 
3753 
3754 
3755 024300 033107 RXSODD: RXTAB+15 
3756 024302 033510 RXTAB+B118+16 
3757 024304 034153 RXTAB+B1T9+61 
3758 024306 034515 RXTAB+B119+B118+23 
3759 024310 035117 RXTAB+B1T10+25 
760 024312 035501 RXTAB+B1T10+B1 T8+7 
761 024314 036126 RXTAB+BIT10+BI1T9+34 
3762 024316 036524 RXTAB+B1T10+B119+B1 18+ 32 
gree 024320 036570 RXTAB¢BITIO+BI T9+B118+76 
3765 
3766 sEVNDAT = SUBROUTINE TG LOAD EVEN PARITY ENABLED 
fer DATA FOR TESTS 17 AND 20. 
3769 024322 010346 EVNDAT: MOV R3,-(SP) SAVE R3 
3770 024324 013703 001244 MOV MASKX,R3 :GET BITS/CHAR. DATA 
3771 024330 032703 000400 BIT #400,R3 38 BITS/CHAR? 
3772 024334 001404 BEQ 223 ;BR IF NOT 
3773 024336 112737 000001 033073 MOVB #BITO,RXTAB+1 ;LOAD 8 BIT DATA 
3774 024344 000421 BR 298 GET OUT 
3775 024346 132703 000040 22%: BITB #40,R3 :5 BITS? 
3776 024352 001404 BEQ 23% ;BR IF NOT 
3777 024354 112737 000001 033133 MOVB #BITO,RXTABt41 ;LOAD 5 BIT DATA 
3778 024362 000412 BR 2 GET OUT 
3779 024364 132703 000100 238: BI1TB #100,R3 36 BITS? 
3780 024370 001404 BEQ 4 3;BR IF NOT 
3781 024372 112737 000001 033173 MOVB #BITO,RXTAB+101 ;LOAD 6 BIT DATA 
HA 4 024400 000403 BR 3GET OUT 
3783 024402 112737 000001 033273 248%: MOVB #BITO,RXTAB+201 ;LOAD 7 BIT DATA 
3784 024410 012603 29S: MOV (SP)+,R3 sRESTORE R3 
i 024412 000207 RTS PC :RETURN TO MAIN PROGRAM 
787 
} 
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789 

790 024414 MRKCK: 
3791 024414 032737 040000 001236 BIT #PARBIT,STAT PAR. EN? 

3792 024422 001402 BEQ 30$ sBR IF NOT 

3793 024424 043704 001244 BIC MASKK,RG ELSE CLEAR BIT 

0244 120504 30$: CMPB RS,R4 sDATA OK? 
3795 024432 001471 BEQ 37¢ :YES, GET OUT 
024434 032737 040000 001236 BIT #PARBIT,STAT . EN? 

3797 024442 001451 BEQ 35$ JA "60 aft —— 
3798 024444 017704 154716 MOV @DVRIC,R4 “GET RIC’ 

3799 024450 010146 MOV R1,-(SP) sSAVE R1 
3800 024452 005001 CLR R1 : 
3801 024454 032737 020000 0601236 BIT #20000,STAT sEVN. PAR. EN? 

3802 024462 001416 BEQ 32$ :BR IF NOT 

3803 024464 032737 000400 001244 BIT #400 ,MASKX =8 BITS/CHAR? 

3804 024472 001403 BEQ 31$ :BR IF NOT 

3805 024474 052701 010377 BIS #B1T12+377,R1 ;8 BIT EVN DATA 

3806 024500 000424 BR 34$ :GET LINE # 

3807 024502 032737 000100 001244 31$: BIT #100 ,MASKX 36 BITS, EVN? 

3808 024510 001426 BEQ 35% :1f NOT, REPORT ERROR 

3809 024512 052701 010177 BIS #B1T12+177,R1  :6 BIT EVN DATA 

3810 024516 000415 BR 348 GET LINE # 
3811 024520 032737 000040 001244 32%: BIT #40, MASKX 35 BITS, ODD? 

3812 024526 001403 BEQ 33$ :BR IF NOT 
3813 024530 052701 010077 81S #B1T12+77,R1 35 BIT ODD DATA 

3814 024534 000406 HR 348 :GO GET LINE # 
3815 024536 032737 000200 001244 33%: BIT #200 ,MASKX 37 BITS ODD? 

3816 8 4544 001410 BEQ 35$ :1F NOT, REPORT ERROR 

381 4546 052701 010377 BIS #B1112¢377,R1 ; 
3818 024552 010046 34$: MOV RO,-(SP) SAVE RO 
3819 024554 000300 SWAB RO :PLACE LIME # IN HIGH BYTE 
3820 024556 050001 BIS RO,R1 [PUT LINE # INTO DATA 

3821 45 012600 MOV (SP)+,RO RESTORE RO 

3822 024562 020104 CMP R1,R4 DATA COMPARE WITH ‘'RIC''? 
3823 024564 001413 BEQ 42% YES, SKIP ERROR REPORT 
3824 024566 022737 010422 001216 35$: CMP #TST3,NEXT ‘CALLED FROM TST2? 

3825 024574 001001 BNE 40% :BR IF NOT 
3826 024576 104001 HLT 1 FAULT IN XMTR IDLE FUNC TST 2 
3827 024600 022737 011160 001216 40%: CMP #TST4 NEXT ;CALLED FROM TST 3? 

3828 024606 001001 BNE 41% ‘BR IF NOT 

3829 024610 104005 HLT 5 :FAULT IN XMTR IDLE FUNC TST 3 
3830 024612 104002 41$: HLT 2 sFAULT IN RECVR CNTRL BYTE TST 4 
3831 024614 012601 42%: MOV (SP)+,R1 RESTORE R1 

sa3 024616 000207 37$: RTS PC RETURN TO CALLING PROGRAM 
3834 

3835 

3836 pteeeeereerertererererterretrretereneeeeeeeseteeeeteninereeense 
th 024620 SETSYNC: 

38 024620 113737 001236 025470 MOVB STAT, SYNC SET SYNC FOR THIS LINE. 
3839 Beeees 113737 025470 025471 MOVB SYNC,SYNC+1 *PLACE SYNC IN HIGH BYTE 
3840 0246 032737 010000 001236 BIT #TWOSYN, STAT ONE SYNC OR TWO? 

3841 024642 001402 BEQ 1$ :BR IF JUMPERED FOR TwO. 
tare 024644 105937 025470 CLRB SYNC :SET FIRST SYNC TO NON-SYNC 
3843 024650 000205 1$: EXIT 

3844 024652 010046 SIMBCC: MOV RO,-(SP) 


































VD=D MACY11 30A(1052) 17-JUN-80 15:00 PAGE 74 
VDD .P11 O2-JUN-80 09:32 DV11 DEVICE DIAGNOSTICS. SEQ 0085 
3845 024654 010146 MOV R1,-(SP) 


3846 024656 010246 MOV R2,=(SP) 
3847 024660 012537 001246 MOV (R5)+, TEMP 
3848 024 012537 001250 MOV (RS) +. TEMP2 
3849 024670 012537 001252 MOV (R5)+, TEMPS 
3850 024674 005037 025026 1$: CLR BCCFBK 
3851 024700 013700 001252 MOV TEMP3,RO 
3852 024704 006037 001250 ROR TEMP2 
3853 024710 005500 ADC 
3854 024712 032700 000001 BIT #B81T0,RO 
3855 024716 001402 BEQ 
3856 024720 005137 025026 COM BCCFBK 
3857 024724 013700 025024 2$: MOV XPOLY,RO 
3858 024730 005100 COM R 
3859 024732 040037 025026 BIC RO, BCCFBK 
3860 024736 000241 CLC 
3861 024740 006037 001252 ROR TEMP3 
3862 024744 013700 025026 MOV BCCFBK,RO 
3863 024750 013701 0012 MOV TEMP3,R1 
3864 024754 010102 MOV R1,R2 
3865 024756 040100 BIC 1,R0 
3866 024760 043702 025026 BIC BCCFBK,R2 
3867 024764 050200 BIS 2,R0 
3868 024766 043737 025024 001252 BIC XPOLY, TEMP3 
3869 024774 050037 001252 BIS RO,TE 
3870 025000 005337 001246 DEC TEMP 
3871 025004 001333 BNE 1$ 
2 095 013737 001252 025030 MOV TEMPS, CALBCC 
73 025014 012602 MOV (SP) +_R2 
3874 025016 012601 MOV (SP)+, “Rl 
3875 025020 012600 MOV (SP) +.RO 
3876 025022 000205 RTS R5 
3877 025024 000000 XPOLY: 0 
3878 025026 BCCFBK: 0 
3879 025030 000000 CALBCC: 0 
3880 000200 LRCB=200 
3881 120001 ERC I6= 120001 
3882 102010 CRC.CCITT=102010 
3883 
3884 
3885 025032 010046 SETREG: MOV RO,-(SP) 
3886 025034 010146 MOV R1.-(SP) 
3887 025036 112500 mMOVB = (R5) +, RO 
3888 025040 112501 MOVB = (R5) +, RI 
3889 025042 110077 154326 MOVB = RO aDVSRSH 
025046 012577 154324 MOV (R5)+,aDVSRA 
3891 025052 042777 000060 154302 BIC wBiTSsBi te, aDVSCR 
3892 025060 110177 154310 MOVB @DVSRSH 
3893 025 012577 154306 MOV LP vd aDVSRA 
025070 012601 MOV (SP)+.R1 
95 025072 012600 MOV (SP) +.RO 
3896 025074 000205 EXIT 
3898 025076 LOAD. MODE : 
3899 025076 MOV (R5)*, aDVLCR 


012577 154266 
025102 052777 100000 154260 BIS #81115 aDVLCR 
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DV11 DEVICE DIAGNOSTICS. 


SEQ 0086 


;BIT 15 FAILED TO CLEAR 


7341S THIS AN ASYNC LINE CARD? 
;4BR IF NOT ASYNC. 

;#ADJUST FOR ASYNC LINE CARD 
sMREGISTERS 

:#LOAD FOR ASYNC 

;#LOAD FOR ASYNC 

CONTINUE TEST 


7#1S THIS ASYNC LINE CARD? 


:#BR IF NO. 
;#LOAD PARAMETERS. 
sMRECEIVER ENABLE 


74 
3#8 BITS/PER/CHAR 


#9600 BAUD. 


7GET S¥wC CHARS AND ADJUST FOR ONE OR TWO. 


MOV RO,-(SP) 
CLR RO 
1$: TST @DVLCR 
BPL 2$ 
DELAY 
INC RO 
BNE 1$ 
HLT 
2$: MOV (SP)+,RO 
EXIT 
; SUBROUTINE. 
[CORE TABLES ALREAY SET UP 
:XMIT 3 CHARS 2SYNC+ 1 DATA 
“RCV 1 CHAR 
DV110N: MOV RO, aDVSRS 
BIT #ASYNC, STAT 
BEQ 80$ 
PERFORM ,SETREG 
-BYTE 600,001 
TXBAP 
BR 81$ 
80$: PERFORM ,SETREG 
.BYTE 000,001 
SYNC 
81$: PERFORM ,SETREG 
.BYTE 604,005 
-1 
PERFORM ,SETREG 
-BYTE 610,011 
TXTAB 
~ St 
PERFORM ,SETREG 
-BYTE 613,012 
BIT2 
BITO 
BIT #ASYNC, STAT 
BEQ 60$ 
PERFORM ,LOAD.MODE 
BIT13 
PERFORM ,LOAD.MODE 
<B1T12+B1T11>¢BI119 
PERFORM ,LOAD.MODE 7" 
<B1114+BiT13+BI1T12>+B1110 
BR 61$ 
60$: PERFORM ,LOAD.MODE 
BIT13+BIT12¢BiT11 
PERFORM ,SETSYNC 
61$: RTS PC 
SETSCAN: 


— | 
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DD.P11 02-JUN-80 09 DV11 DEVICE DIAGNOSTICS. SEQ 0087 

3957 025306 010346 MOV R3,-(SP) 

3958 025310 052777 000010 154044 BIS #B1T3,aDVSCR 

3959 025316 012503 MOV (R5)+,R3 

3960 025320 001414 BEQ 2$ 

3961 025322 012777 050102 154050 18: MOV #BITIG+B1T12+B1T6+BIT1 ,ADVSFR 

3962 025330 104415 ROMCLK 

3963 025332 005201 INC R1 

3964 025334 012777 050102 154036 MOV #BITIG+BIT12+BIT6+BIT1,aDVSFR 

3965 025342 104415 ROMCLK 

3966 025344 005201 INC Ri 

3967 025346 005303 DEC R3 

3968 025350 001364 BNE 1% 

3969 025352 012603 2$: MOV (SP)+,R3 

3970 025354 010100 MOV R1,R0 

3971 025356 000241 CLC 

3972 025360 006000 ROR RO 

de 025362 000205 EXIT 

3975 025364 000042 REGBUF: .BLKW 34. 

3976 025470 000001 SYNC: BLKW 1 

3977 025472 000400 TXBAP BLKB 400 

3978 026072 000400 TXBAS BLKB 400 

3979 026472 000400 TXTAB BLKB 400 

39 027072 000400 BLKB 400 

3981 027472 000400 BLKB 400 

3982 030072 000400 -BLKB 400 

3983 72 000400 -BLKB 400 

9 031072 000400 BLKB = 400 

985 03147 00 BLKB 400 

3986 032072 000400 -BLKB 400 

3987 032472 000400 RXBA: .BLKB 400 

3988 033072 000400 RXTAB: .BLKB 400 

3989 033472 000400 -BLKB 400 
034072 000400 -BLKB 400 

3991 034 000400 -BLKB 400 

3992 035072 000400 -BLKB 400 

3993 035472 000400 BLKB 400 

3 72 000400 BLKB 400 

3995 72 000400 BLKB 400 

3 037072 DATA 

3997 037074 043377 042522 020105 EM1: eASCIZ <377>/FREE RUNNING ROM TESTS/ 
037124 051377 041505 044505 EM2: -ASCIZ <377>/RECEIVER CONTROL BYTE TEST./ 
037161 377 051124 047101 EMS: -ASCIZ <377>/TRANSMITTER CONTROL BYTE TEST./ 
037221 377 042522 042503 EMA: eASCIZ <377>/RECELVER BCC ERROR/ 
037245 377 051124 047101 EMS: eASCIZ <377>/TRANSMITTER IDLE FUNCTION TESTS/ 
037306 042777 050130 041505 DH1: eASCIZ <377>/EXPECTED FOUND LINE(8)/ 

037342 EVEN 

037342 3 DT1: 3 

3998 037344 006 004 -BYTE 6,4 

3999 037346 001272 SAVR5 

4000 037350 006 002 BYTE 6,2 

4001 037352 001270 SAVR4 

4002 037354 002 001 BYTE 2,1 

4003 037356 001260 SAVRO 


004 
4005 037360 -ERRTAB: 
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CZDVOD.P11 02-JUN-80 09:32 DV11 DEVICE DIAGNOSTICS. SEQ 0088 
4 037360 0 
4007 037362 000000 0 
4008 037364 00 
4009 037366 037074 EM1 
4010 037370 037306 DH1 HALT 1 
4011 037372 037342 011 
4012 037374 037124 EM2 
4013 037376 037306 DH1 ;HALT 2 
4014 037400 037342 DT1 
4015 037402 037161 EM3 
4016 037404 037306 DH1 sHALT 3 
4017 037406 037342 DT1 
4018 037410 037221 EM4 
4019 037412 037306 DH1 sHALT 4 
4020 037414 037342 dT1 
4021 RRR RRARRRR ARE RARTA TATA TAT TATE eee Tee Kee TAA Tete eee eeeAteeeeee 
4022 037416 037245 EM5 ; (REV. DO) 
4023 037420 037306 DH1 sHALT 5 
4024 037422 037342 DT1 
4025 SRA RARE ARERR REET E EAE E CATT H ERATE RATA AEE AREER eee ee eee eee 
4026 037424 CORMAX : 


4027 000001 ~END 


7 
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CZDVDD.P11 02-JUN-80 2 

ADRCNT= 003443 619* 655* 6644 

ALU == 010000 734 

ASYNC = 004000 818 1262 1340 1359 1384 1469 1488 
2437 2464 2602 2629 283 2856 2998 
3396 3408 3427 3460 3917 3940 

AUTO.S 006622 11294 

C = 0600 784 

BCCFBK 025026 1823* 1829" 1832* 1835 1839 3850*  3856* 

BINWRD 37 705* 706 7438 

BITO = 0 71a 886 1275 1510 1684 1827 2180 
3021 3059 3067 3157 3186 3389 3426 
3854 3939 

BIT1 = 000002 704 886 897 1854 2020 2180 2490 
3248 3250 3961 3964 

B1T10 = 002000 614 886 1267 1389 518 1692 2459 
2796* 2797 2798 2799% 2863 3029 3194 
3693 3694 3695 3696 97 3707 3708 
3723 3724 3733 3734 3735 3736 3737 
3760 3761 3762 3763 3947 

B1T11 = 004000 604 886 1265 1271 1387 1393 1516 
2640 2861 2867 3027 3033 3192 3198 

BIT12 = 010000 9M 73 5 77 1265 1267 
1522 1645 1690 1692 1696 2469 2471 


BIT14 = 040000 57a 7 77 7 6 1267 
2471 2483 2624 2627 2636 2648 2863 
3961 3964 

BIT15 = 100000 568 = 2442 2447 2451 2459 2462 2607 

BIT2 = 886 1256 1380 1509 1683 
2990 3020 3059 3067 3185 3260 3425 

BITS = 000010 88 1800 1862 1884 2405 2429 
3021 3496 3532 3958 

BITS = 000020 674 1626 1628 1646 1884 2458 2984 

BITS = 000040 664 1295 1969 2087 2091 2180 2791 
2804 2806 2808 2809 2810 2980 2990 

BIT6 = 000100 # 1197 2087 2091 2180 2293 2297 
2799 2803 2804 2807 2808 2809 2810 

BIT7 = 000200 64m 520 767 924 945 1197 2087 
2805 2806 2807 2808 2809 2810 2980 

BITS = 000400 886 90 2315 2398 2792e 27948 
3677 3679 3681 3683 3684 3690 3692 
3710 3711 3717 3719 3721 3723 3724 
3745 3747 3749 3750 3756 3758 3760 

BIT9 = 01000 628 886 1197 1202 1265 1387 1516 
2797* =«2798* 2799 2861 2958 3027 3192 
3691 3692 695 3696 3697 3705 3706 
3723 3724 3731 3732 $735 3736 3737 
3758 3761 3762 3763 3945 

BRB = 070000 794 

BRW 003014 459 5484 


BRX 003016 460 5494 


a 7 


CZDVD=D MACY11 30A(1052) 17-JUN-80 15:00 PAGE 80 
CIDVDD.P11  — 02=JUN-80 09:32 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0090 
BICHAR 023366 2285 2434S 2599-35070 
CALBCC 025030 1815* 1845" 1850 1868" 1874 1890* 1896 3872" 38798 
CHRCNT 003744 703* = 707-7238 = 41H 72 
CLKX 001242 1508 
CLK.A 001416 2508 1047 
CLK.8 001417 2518 1052 
CLK.C 001420 g5¢H 1057 
CLK.0 001421 2538 ©1062 
CNVRT = 106411 2098 «= 478 ~=—s 480s B82 BG s(“(<i«é‘«éiSC(itiHSC“<‘<‘ié«éiRSt*«iD 
CONVRT= 104410 2078 «418 ~—S 820 
ORMAX 037424 4026# 4027 
CRC.CC= 102010 1891 3882" 
CRCI6 = 120001 1869 3881" 
CREAM 001306 171# 387* ~«=—-994* «995. s«997* ~=—«'1002,-Ss«*1003* =: 1004~=S ‘1007 
CSRMAP 006624 412 «11314 
CYCLE 005664 462 4698 499 9848 
DATA 037072 39968 
DATABP 004276 793* = 796sB1Bs«éB TA 
DATACL= 104416 2198 
DATAHD 0042 792 381417" 
DELAY = 104414 215#@ 1277-1702, «2302s 3212~—Ss«3219S «3265 = 3905 
DEVADR 003440 617" 652 662" 
DH 037306 39978 4010 4013 4016 4019 4023 
pT! 037342 3997# 4011 4014 4017 4020 4024 
DVACTY 001300 1654 434* = 35. (iBGSC(té«iSC“(‘«‘ézTO B® ©«O1169* = 11708) =—-'1176 «1193 
DVCROO 001500 2838 
DVCROI 001524 2948 
DvCRO2 001550 3054 
DVCROS 001574 
DVCROS 001620 3278 
DVCROS 001644 3388 
DVCRO6 001670 3498 
DVCRO? 001714 3608 
DVLCR 001370 2334 = 903* = «904. s«:1023* =1024* +»=— 1025. 3899" §=—3900* += 3903 
DVNSR 001402 2384 ©1033" 1034" ©1035 
001301 1664 488 1135* 1156 1157 1164 1166 
DVRIC 001366 2328 1021" 1022* 1023 2310 2329 2480 2645 3085 3269 3456 3798 
DVRLVL 001354 227# = «1038* 1039* 1040 2296 
DVRVEC 001352 226M 1009* 1038 2295 
DVSCR 001362 230# 502 «=» BB0® «= s«B93e «= «B97* 1008* += 1019Ss«1275* «= 1283* «= 1395* 1396 «= 1524" = 1525 
1698e 1700 1810" 1811 1863" 1864 1885" 1886  1958* 1959 2031* 2032 2093 
2094 2181* 2182 2297" 23158 2321% 2324 2477* 2478 2642 2643 2868 2869 
3041s 3042 5208e 3210 S217 3261* 3263 3446* 3447 3449 3453* 3454 38918 
« 
DVSCRH 001364 231 1019" 1020* 1021 
DVSFR 001400 237# 1031" 1032* 1033 3961" 3964 
DVSRA 001376 2364 884 1029* 10308 1031 1287 18146 1867 1889 1962 2046* 2091* 2098 
2102 2106 2110 g1BOe 295+ «2489 2496 2503 2513 2654 1 668 2678 
28% 2900 2902 50585066 3073 3078) «= 3247" «3248 += 3.250" §=— 3260" «= 452% «= 38908 
® 
DYSRS 001372 234# «= BB3.— «1025 «=«10026* = 1027S s«1249* «=««1355e = 1484s «= 1650* «= 1804" =«1857* §«=—1B79* «= 4368 
2601" 2832 2997% 3163" 3395" 3916 
DVSRSH 001374 235# 1027* 1028* 1029 1286 1813* 1866" 1888" 1961* 2045" 2090" 2097* 21018 
2105* 210% 179" 22924 guBBe 24958 2502* 2511% 26538 2660"  2667* 2676" 2892" 
2899e 3901" 3057* 3065e 3072 3077* 32462 3249 32598 3451" 3889  3892« 
DVTLVL 001360 2294 1042* 1043* 1274 
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DVTROO 001502 2848 
DvTRO1 B01 288 954 
DvTRO2 001552 064 
DVTROS 001576 3178 
DVTROG 001622 3288 
DVTROS 001646 3394 
DVTRO6 001672 3504 
DVTRO7 001716 3618 
DVTVEC 001356 2284 1040" 1041* 1042 1273* 
DV.END 001740 3718 99 1004 1133 
DV.MAP 001500 171 2824 387 414 997 1007 
DVOO.A 001504 2854 
pv0O0.B8 001510 2874 
DVOO.C 001514 2898 
DVOO.D 001520 2914 
pV01.A 001530 2964 
0V01.8 001534 2984 
DvO1.C 001540 3004 
DVO1.0 001544 302" 
DVO02.A 001554 3074 
Dv02.8 001560 3094 
DVO2.C 001564 3114 
pv02.0 001570 3134 
pVvO3.A 001600 3184 
DVO03.8 001604 3208 
DVO3.C 001610 3228 
DV03.0 001614 3248 
DV04.A 001624 3298 
0v04.8 001630 330 
pv04.C 001 3334 
DV04.0 001640 335a4 
pv05.A 001650 3404 
pv0S.B 001654 342¢ 
0v05.C 001660 3448 
DV0S.D 001664 3668 
DV06.A 001674 354 
Dv06.8 001700 3534 
pv06.C 001704 3554 
DV06.D 001710 3574 
pv07.A 001720 3624 
Dv07.B 001724 3644 
pv07.C 001730 
DV0O7.0 001734 3684 
DV110N 025136 1805 1858 1880 1953 2025 2089 
em! 037074 9974 4009 
E 037124 9978 4012 
al 037161 39978 4015 
£m, 037221 39978 4018 
EMS 037245 39978 4022 
ERRCNT Att 1428 89e 511 829* 
ERRFLG 1311 1778 8Se 473e 540¢ . 781e 794 
ER $22 791e 809 8124 
ert 90% a308 
EvE 3660 1 9a 
Me, 023604 33) 5678 
EVEN 023530 $27 543a 


1136 


2287 


865* 


1185 


39168 


SEQ 0091 
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P11 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0092 
rates] 3161 HH) acere 
= see 44 gia 84 896 3910 3973 
004522 Bee 8298 
ascites 3635 639 3641 3644a 
4114 1638 6654 
006514 18 105 1058 1063 10978 
asta 77 82 
0034 616* 64 6618 
001222 1384 538 543 
005516 586 22 969" 
INIFLG 001310 1768 94 409* 
INSTER= 104404 1998 637 
INSTR = 104403 1974 1070 
003236 593 6054 
T 000174 1108 404 
LIGHTS 001200 1218 404« 475* 
LIMITS 003364 632 6434 
011524 1607 16508 1749 
12300 17984 904 
LOAD.M 025076 12 1266 1270 1384 1386 1388 1392 1513 1515 1517 1521 1687 1689 
1691 1695 2466 2468 2470 2474 2631 2633 2635 2639 2858 2860 2862 
2866 3024 3028 3032 3189 3191 3193 3197 3244 3257 3429 343 
3433 3437 38984 3942 3944 3946 3950 
LOBITS 003442 618* 647 6634 664 
001220 1378 542 556 558 800 1242 1343* 14672 1607* 1793* 1942¢ 2016*  2084* 
2161* 2258 2397# 2565* 2744e 2957 3144" 33808 
LOGICA 002560 107 492e 
LOKFLG 001312 1788 
003434 615* 645 6604 
001224 1394 537* 538 541* 
= 000200 1816 38804 
LSTERR 001234 1438 390* 472* 524% 778 780+ 864* 
100.03 001422 255#@ 1010* 1045 1225 1320 1449 1586 1773 1922 1996 2067 2138 2238 
2377 2545 2724 2937 3124 3360 
L04.07 001424 256@ 1012* 1050 1229 1325 1454 1591 1778 1927 2001 2071 2143 2243 
2382 2550 2729 2942 3129 3365 
001426 257# = 1014* 1055 1233 1330 1459 1596 1783 1932 2006 2075 2148 2248 
2387 2555 2734 2947 3134 3370 
L12.15 001430 2584 1016* 1060 1237 1335 1464 1601 1788 1937 2011 2079 2153 2253 
2392 2560 2739 2952 3139 3375 
001244 151#@ =1319" =61326e «= 1329* = 1334" = 1415 1448* 1453% 1458* 1463* 1544 1585* 1590* 
1595* 1600" 1621 1712 1722 1733 1772* 1777* «1782e 1787 1921* 1926* 1931* 
1936* 1995* 2000" 2005* 2010* 2039 2137 «21428 = 2147* = 2152 = 2199 2237* 22428 
2247* 2252* 2272 2376* 2381* 2386% 2391* 2423 507 2544" 2549e 2554% 25598 
$758 e676 if ts 728* tt gcae* 2762 2888 936* 9412 2946* 2951* 3123 
128 133 138 275 280 293 3305 3317 29 359e 3364* 3369* 3374 
3465 3467 468 487 3623 3770 3793 3803 3807 3811 3815 
MASK.A 001406 ose 4938 1313 1448 1585 1772 1921 1995 2137 2237 2376 2544 2723 
MASK.B 001410 ose 1938 tece 1453 1590 1777 1926 2900 2142 2242 2381 2549 2728 
C 001412 ofeee 1086 ieee 1458 1595 1782 1931 2005 2147 2247 2386 2554 2733 
MASK.D 001414 2484 1061 1334 1463 1600 1787 1936 2010 2152 2252 2391 2559 2738 
+3} 13 3374 
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CZDVOD.P11 O2-JUN-80 09:32 SEQ 0093 
MCRLF 005104 571 694 798 799 807 948 9604 1069 1087 
MCSRX 005326 477 9604 
MDATA 005622 721 731 9734 
MEPASS 005145 476 9608 
MERRPC Boat ee 805 9604 
MERRX 00535 483 9604 
MERR 005172 9604 986 1176 
MERR 005241 431 9604 
MLOCK 005277 455 9604 
MNEW 005400 426 9604 
MODDAT 023734 1798 1948 2019 36194 
MPASSX 005342 481 9604 
MPFAIL 005107 861 9604 
L 005100 601 9604 1092 
005167 463 9604 
MRESET= 004000 814 880 893 
MRKCK 024414 1422 1551 1737 1741 37908 
MSTCLR= 104412 218 865 1292 1427 1556 1743 1802 1856 1878 1967 2044 2113 2214 
2345 2903 3334 3473 
MTITLE 001000 1198 408 
MTSTN 005364 803 9604 1071 
MTSTPC 005265 9604 
MVECK 005334 479 9604 
NEXT 001216 1364 544 834 1223* 1317* 1446* 1583" 1770" 1919* 1993* 2065* 2135* 2255* 
2374e 2542 2721% 29348 3121* 3357* 3490 3824 3827 
NOLIST= seeeee 1 
NPR = 040000 768 
0005 0 3/98 3515 36034 
0006 02363 3523 35798 
0007 023556 3529 35558 
PARAM = 104405 2014 1072 
PARAM 003304 6214 638 
PARBIT= 040000 Bie §1116 1710 1720 2037 2275 2426 2509 2591 2674 2765 2890 3276 
3289 3301 3313 3325 3485 3492 3624 3791 3796 
PAREN 023304 1402 1408 1531 1537 2188 2204 2210 2312 2331 2339 2485 2492 2498 
2650 2657 2663 2879 3051 3062 3069 3087 3485« 
PARERR 003360 624 626 628 6374 644 646 648 
PASCNT 001230 1414 384+ 474s 47§ 508 
PERFOR= 004537 814 1250 1254 125u 1264 1266 1270 1361 1366 1370 1374 1378 1384 
1386 1388 1392 1394 1490 1495 1499 1503 1507 1513 1515 1517 1521 
1523 1656 1661 1668 1673 1677 1681 1687 1689 1691 1695 1697 1806 
1859 1881 1954 2026 2175 2288 2439 2444 2448 2452 2456 2460 2466 
2468 2470 2474 2476 2604 2609 2613 2617 2621 2625 2631 2633 2635 
2639 2641 2753 2835 2840 2844 2848 2852 2858 2860 2862 2866 3000 
3005 3009 3014 3018 3024 3026 3028 3032 3034 3166 3171 3175 3179 
3183 3189 3191 3193 3197 3207 3233 3238 3244 3257 3398 3403 3410 
3415 3419 3423 3429 3431 3433 3437 3445 3919 3924 3928 3932 3936 
3942 3944 3946 3950 3952 
PFTAB 004470 862 8684 
POPRO = 0126 554 828 
POP1SP= 005726 55a 
POP2SP= 022626 554 546 
= 1777 534 380* 449* 1196* 1272 1278% 1284" 2294 23018 
PUSHRO= 010046 554 825 
PUSH1S= 005746 554 
PUSH2S= 024646 55a 
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QV.FLG 001313 1798 386* 487* 535 
RAM = 020000 74a 


RAMCLR= 104415 2134 866 1243 1344 1473 1609 1794 1943 2017 2085 2162 2259 2401 
2516 2566 2681 2745 2961 3090 3145 3381 

REGBUF 025364 3975¢ 

RESREG 4300 819 8224 

RESTAR 004414 849 855 

RESTRT 002572 6 90 4988 

RESV16 1404 2394 =1035* 1036 

RESOS = 104407 2054 822 

RETURN 001214 1354 392* 462 464 498+ 5448 547 834* 836 867 1086* 1094* 1095 

ROMCLK= 10441 2174 3962 3965 

RUN 001304 1694 388* 989 992* 993* 1000* 1001* 

RXBA 032472 1356" 1357* 1358" 1372 1400 1406 1418 1485* 1486* 1487* 1501 1529 1535 
1547 1652* 1653* 1670 1675 1708 1718 1735 1739 2030* 2034 2173* 21748 
2185 2200 2207 2334 2450 2615 2814 2846 2872 2992" 2993" 2995" 2996 
3011 3044 3177 3199* 3200* 3285 3412 3417 3930 39878 

RXTAB 033072 1346 1377 1475 1506 1626* 1628*  1629* 1630* 1680 1800* 1951*  2022* 2088+ 
2271 2422 2455 2587 2620 2747 2851 2963 2981* 2983 2984* 2985*  2986* 
2987* 2988 2989" 2990* 3017 3148 3157" 3158* 3159* 3182 3383 3389* 3422 
3543 3544 3545 3546 3547 3548 3549 3550 3551 3552 3553 3555 3556 
3557 3558 3559 3560 3561 3562 3563 3564 3565 3567 3568 3569 3570 
3571 3572 3573 3574 3575 3576 3577 3579 3580 3581 3582 3583 3584 
3585 3586 3587 3588 3589 3591 3592 3593 3594 3595 3596 3597 3598 
3599 3600 3601 3603 3604 3605 3606 3607 3608 3609 3610 3611 3612 
3613 3652 3653 3654 3655 3659 3660 3661 3662 3666 3667 3668 3669 
3676 3677 3678 3679 3680 3681 3682 3683 3684 3689 3690 3691 3692 
3693 3694 3695 3696 3697 3703 3704 3705 370 3707 3708 3709 3710 
3711 3716 3717 3718 3719 3720 3721 3722 372 3724 3729 3730 3731 
3732 3733 3734 3735 3736 3737 3742 3743 3744 3745 3746 3747 3748 
3749 3750 3755 3756 3757 3758 3759 3760 3761 3762 3763 3773* 8§=637778 
3781* 3783* 3935 39884 

RXSEVN 024256 2773 37428 

RX5O00D 024300 2775 37554 

RX6EVN 024212 2781 37168 

RX60D0 024234 2783 37294 

RX7EVN 024146 2787 36894 

RX700D 024170 2789 37034 

RXBDAT 024124 2767 36764 

SAVACT 001302 1674 429 1174* 

SAVNUM 001303 1684 383 485* 488* 1167+ 

SAVPC 001276 1644 669* 840 

SAVRO 001260 157# 678+ 683 4003 

SAVR1 001262 1584 677* 684 

SAVR2 001264 1594 676* 685 

SAVRS 001266 1604 675* 686 

SAVR4 =: 0001270 1614 674% 687 4001 

SAVRS 001272 1624 673* 688 3999 

SAVSP 001274 1634 

SAVOS = 104406 2034 782 

SCOPE = 104400 1914 1240 1338 1467 1604 1791 1940 2014 2082 2156 2256 2395 2563 
2742 2955 3142 3378 

SCOP1 = 104401 193@ 1293 1428 1557 1744 1900 1974 2047 2114 2215 2346 2517 2682 
2905 3091 3335 3474 

SERV.G 004640 523 770 914a 915 

SETREG 025032 1250 1254 1258 1361 1366 1370 1374 1378 1490 1495 1499 1503 1507 
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CZ0V0D.P11 02-JUN- 32 
1656 1661 1668 1673 1677 1681 1806 1859 1881 1954 2026 
2439 2444 2452 2456 ¢n60 2604 2609 2613 2617 2621 
2840 ¢535 2848 852 3000 005 3009 3014 3018 3166 3171 
3183 233 3238 398 3403 3410 3415 3419 3423 3885# 3919 
3932 3936 
SETSCA 025306 39564 
SETSYN 024620 1394 1523 1697 2476 2641 2753 3034 3207 3445 38378 ©3952 
SEVTAB 024074 1644 36514 
SIMBCC 024652 1870 1892 38448 
SIXTAB 024104 1642 36584 
SPACNT= 003745 704* 725 728% 7428 
SSwR 000176 1124 405 
STACK = 001200 54a 381 450 835 857 
STAT 0012 1484 1225 1229% 12338 1237* 1262 1320* 1325 1330* 1335* 1340 
1412 1449% 14542 1459% 1464* 1469 1488 1511 1586* 1591% 1596« 
1654 1666 1685 1710 1720 1727 1773* 1778 1783* 1788* 19228 
1937* 1996* 2001* 2006* 2011* 2037 2067* 2071 2075* 2079* 2138 
2153* 2158 2166 2170 2171 2191 2194 2238 2243% 2248% 22538 
2382* 2387* 2392* 2398 2409 2426 2437 2464 2509 2545 2550* 
2574 2591 2602 2629 2674 2724e 2729% 2734 2739% 2756 2765 
2785 2833 2856 2890 2937* 2942% 2947% 2952" 2958 2998 3022 
3134" 3139" 3154 3164 3187 3224 3225 3231 3242 3255 3276 
3313 3325 3360" 3365" 3370* 3375" 3387 3396 3408 3427 3460 
3494 3511 3519 3525 3624 3626 3791 3796 3801 3838 3840 
$v05 003452 6734 
SwR 001202 1234 400 405* 410 424 429 434 453 517 526 533 
htt 771 776 823 830 832 916 917* 927* 932« 933* 
swoO = 000001 34a 424 
$w01 = 000002 33" 4 =— 1064 
SWwO2 = 000004 32a 
$SwO3 = 000010 31" 
$w04 = 000020 304 
swOS = 000040 298 
$w06 = 000100 284 
$wO7 = 000200 27a 
$w08 = 000400 264 830 
sw09 = 001000 25a 554 
Swi0 = 002000 24a 832 
SWil = 004000 234 533 
Swi2 = 010000 22a 567 771 
$wi3 = 020000 ral] 776 
SW14 = 040000 204 
Swi5 = 100000 194 
001506 2864 
001532 2978 
001556 3084 
001602 3194 
001626 308 
001652 3418 
001676 352a 
001722 3634 
001512 2884 
001536 2994 
001562 3108 
001606 3214 
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SYNBO4 001632 3324 

SYNBOS 00165 3438 

SYNBOS 001702 3548 

SYNBO? 001726 3654 

SYNC 025470 1288 {Sone 1663 2446 2611 2842 3007 3173 3240 3405 3838 3839* 3842¢ 

SYNCX 001240 1494 

SYNCOO 001516 2904 

SYNCO1 001542 3014 

SYNCO2 001566 3124 

SYNCO3S 001612 323e 

SYNCO4 001636 334a 

SYNCOS 001662 345e 

SYNCO6 001706 3564 

SYNCO7 001732 3674 

SYNC2A 001432 2604 10118 

SYNC2B 001434 2614 1013* 

SYNC2C 001436 2624 10158 

SYNC2D 001440 2634 810178 

SYNDOO 001522 2924 

SYNDO1 001546 3034 

SYNDO2 001572 314a 

SYNDO3 001616 3254 

SY 001642 336e 

SYNDOS 001666 3478 

SYNDO6 001712 3584 

SYNDO7 001736 3694 

is = 050090 774 

TEMP 005560 708 858 859* 9714 

TEMP 001246 surf. saroe 415 420* 962 11938 1194* 1818* 1843 2873 2884 3508* 3536* 
« ® 

TEMP2 001250 1534 415* 416 964 1825* 3622+ 3634% 3638 3640* 3642 3644 3848« 3852 

TEMPS 001252 1548 1819* 1824 1834* 1836 1841* 1842* 1845 1854 3046* 3054 3621* 3630* 

3849 3851 3861* 3863 3868" 3869* 3872 

TEMP4 001254 1554 

TEMPS 001256 1564 

TKCSR 001204 1274 529 588 914 921 942 

TKDBR 001206 1284 519 531 590 596 766 923 944 

TLAST = 022506 1090 39974 

TPCS! 001210 1294 57 594 773 928 

TPDBk 001212 1304 574* 596* 775* 930* 

TRPOK 003762 7548 

TSTNO 001226 1404 391* 843 870 1075 1082 1084 1222* 1316* 14458 1582* 1769* 1918 

1992e 2064* 2134% 2234# 23738 2541* 27208 2933* 3120* 33568 

TST1 007256 1078 1094 12224 

TST10 013670 1993 20644 

TST11 014200 2065 21344 

TST1 014614 2135 22344 

TST1 015360 2235 23734 

TST14 016254 2374 25418 

TST15 017136 2542 27208 3490 

TST16 020260 2721 29334 

TST17 §=©021256 2934 31204 

TST2 007664 1223 13164 

TST20 022506 3121 33564 3997 

TST21 = eeeeee 3357 
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TS13 010422 1317 146458 3824 
TST4 011160 1446 15824 3827 
TSTS Bigays 1583 17694 
TST6 013032 1770 19184 
TST7 013346 1919 19924 
TTST 002702 456* 457* 459« 460* 5274 
TWOSYN= 010000 814 3840 
TXBAP 025472 1246 1252 1352* 1353* 1363 1481 1482* 1492 1615 1658 1801* 1949* 2021* 
2092* 2165 2263 2413 2441 2578 2606 2821 2837 2871 3002 3036 3168 
3201 3223 3235 3400 3439 3921 39778 
TXBAS 026072 39784 
TXTAB 026472 1248 1257 1345 1376 1474 1505 1610* 1611* 1612* 1613* 1614* 1679 1799 
1950* 2020" #2087* 2088 2404 2408 2454 2569 2573 2619 46 758 27918 
2792 2793 27948 2795* 2796 2797* 2798 2799 2850 2962 29718 2972 2973 
2975 2976 2977 2978 2979+ 2980* 3016 3147 3181 3421 3934 39798 
TYPDAT 004266 797 8184 
TYPE = 104402 19S¢@ 408 413 426 431 455 463 476 477 479 481 483 571 
584 601 694 731 798 799 802 803 805 807 811 816 861 
918 920 948 986 1069 1087 1092 1176 
TYPMSG 166 79 7984 
VECMAP 007102 1175 11834 
WRDOCNI 003742 702* 732* 7404 
WRKO.F 004254 810 8134 
XBX 060 772 774 7764 
XCSR 002604 478 5004 
KERR 002626 484 5094 
XFR = Q3 754 
XHEAD 005457 413 9604 
XPASS 002620 482 506a 
Y 025024 1816" 1830 1841 1869" 1891" 3857 3868 38774 
XSTATQ 005504 9604 
XTSTN 004374 804 8414 
XVEC 002612 480 5034 
SCRAP = 177777 1#@ 1214 12184 1306 13128 14358 144618 15648 15784 1754@ 17658 19088 19148 
1981#@ 19884 20544 2060 21218 21308 2222 2230 2354 23698 25248 25378 26898 
27148 29118 2928 3102 31168 33438 33528 
SE = 000022 oF 1223 12244 1317 13184 1446 14478 1583 15844 1770 17718 1919 19208 
1 1994#@ 2065 20664 2135 21368 2235 22368 4 23758 2542 25438 8 2721 
27224 862934 2935@ 3121 31228 ©3357 3358" 
$N = 000020 1@ 1214 1220 12246# 1306 1314 13184 1435 1443 14478 1564 1580 15848 
1754 1767 17714 1908 1916 19208 1981 1990 19948 2054 2062 206 2121 
2132 21368 2222 2232 tte 2354 2371 23754 4 539 25438 2689 2718 
27228 =§=2911 2931 29358 102 3118 31228 «63343 3354 3358¢@ 639974 
$Y = 000017 T 1824 191 1934 1958 1978@ 1998 2014 2034 20584 2074 2094 2118 
2134 2154 2178 2198 2214 
= 037424 92a 93 964 1034 1048 1054 1064 1094 114 1148 1184 1208 1658 
1664 1674 1684 1694 1708 2818 2834 2848 2854 2864 2878 2884 2898 
29 ol 2924 948 95@ 964 978 2984 998 3008 30le 3028 3038 
305¢ 3074 084 0948 108 lle 3128 134 3148 3168 3178 3188 
3194 3208 3218 ed $30 3248 254 278 3284 3298 3308 3318 3328 
334e 335a 3364 &e 3398 ere 3418 42a 343a 3449 345e 3468 
3478 3498 3504 35a 52a 3530 54a 355a 56a 3578 3584 3608 sole 
3624 3634 3648 365a 3668 3678 368" 3698 433 $6 769 851 86 
87 9124 922 929 943 9708 44 9748 988 1179 1200 1341 1397 
1470 1526 1852 1876 1898 1960 203 2095 2099 2159 183 2304 325 
2399 2479 2644 2870 2959 3043 3094 3211 3214 3218 221 3243 254 


to 










H 8 
CZDVD-D MACY11 30A(1052) 17-JUN-80 15:00 PAGE 88 
CZ2DV00.P11 02-JUN-80 09:32 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0098 


3256 3264 3267 3339 3386 3448 tee 3455 3461 3477 3975# 39768 39778 
39784 3979" 39804 39814 39824 Hat 98484 39854 39868 39874 39884 39898 39904 
39918 39924 39938 399448 39958 9978 

BEGIN 002332 4498 

CNVRT 003542 210 6954 

CONVR 003536 208 6948 

DATAC 004576 220 9004 

DELAY 004476 216 8714 

E 002436 4714 3357 

ERRTA 037360 790 40054 

H 002 7634 

INSTE 003224 200 6014 

INSTR 003120 198 5804 

INST? 003140 5844 604 

MSG 003142 582* 585a 

MSTCL 004556 2 8924 


a 
gee 8484 856 


3804 392 


003044 





a 
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VEND 465 
DVFRNT 
HLT 909 
2305 
3321 
SADJUS 1359 
$BEAK 1856 
SBUF FE 966 
$CK15 
$CKk150 
SCLR.T 
SCYCLE 975 
oP 465 
SFINI 3997 
SGETFL 
SGETPA 1070 
SHE ADE 
$LC16 1213 
$LCI6A 1305 
$L.C17 1563 
$_C18 1753 
$LC19 2053 
$LC20 2120 
$.C21 2221 
$LC22 2353 
C30 2688 
$.¢31 2911 
SL C3 3101 
$i.c3 3342 
$MSG 960 
SPFAIL 844 
SRAMCL 871 
SRXSHI 
SSCOPE 512 
SSETAS 1262 
SSETLI 1220 
3354 
SSETSC 3955 
SSETSY 3837 
SSET.T 
$SILOI 
$SIMBC 3844 
STRPDE 191 
STSTN 1220 
3354 
$TXSHI 
SVARIA 117 
$Xx2 1214 
2060 
3343 
. ABS. 066 


17-JUN-80 
9:32 


1434 


2523 


2629 
1767 


2856 
1916 


201 
1916 


1441 
2354 


I 


3022 
1990 


203 
1990 


1564 
2369 
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3187 
2062 


205 
2062 


1578 
2524 


1966 
3215 


3231 


3940 
2232 


209 
2232 


1765 
2689 





2718 


215 
2718 


1981 
2928 


2931 


217 
2931 


1988 
3102 


